view release on metacpan or  search on metacpan

t/01-class_constructor.t  view on Meta::CPAN

sub _init { 1 };

package main;

$tc = Test_Class3->new(
    baz => 'testbaz',
    bam => 'testbam',
);

is(ref $tc, 'Test_Class3', 'class 3 - object created');
ok(!defined $tc->bam,      'class 3 - initialization blocked');

ok($@ =~ /can\'t\s+autoinitialize/i, 'auto init');

package Test_Class4;
use base qw/ Class::Constructor /;

Test_Class4->mk_constructor(
    Init_Method => '_init_1',
    Init_Methods => [ '_init_2', '_init_3' ],
);