#!perl -w
; use strict
; use Test::More tests => 2


; common_test('BaseClass');
; common_test('SubClass');

; sub common_test
   { my ($class) = @_
   ; $class->N_init_constr
   ; is( $BaseClass::N_init
       , 1
       , 'New custom init'
       )


   }


; package BaseClass

; use Class::constr


; use Class::constr { name => 'N_init_constr'
                    , init => 'N_init'
                    }
                    
; sub N_init { $BaseClass::N_init = 1 }

                                 
; package SubClass
; use base 'BaseClass'