6 package Test::Moose::Go::Boom;
13 default => '019600', # this caused the original failure
18 __PACKAGE__->meta->make_immutable;
22 $@ ? ::fail($@) : ::pass('quoted 019600 default works');
23 my $obj = Test::Moose::Go::Boom->new;
24 ::is( $obj->id, '019600', 'value is still the same' );
29 package Test::Moose::Go::Boom2;
41 __PACKAGE__->meta->make_immutable;
45 $@ ? ::fail($@) : ::pass('017600 octal default works');
46 my $obj = Test::Moose::Go::Boom2->new;
47 ::is( $obj->id, 8064, 'value is still the same' );
52 package Test::Moose::Go::Boom3;
64 __PACKAGE__->meta->make_immutable;
68 $@ ? ::fail($@) : ::pass('017600 octal default works');
69 my $obj = Test::Moose::Go::Boom3->new;
70 ::is( $obj->id, 255, 'value is still the same' );
75 package Test::Moose::Go::Boom4;
87 __PACKAGE__->meta->make_immutable;
91 $@ ? ::fail($@) : ::pass('017600 octal default works');
92 my $obj = Test::Moose::Go::Boom4->new;
93 ::is( $obj->id, '0xFF', 'value is still the same' );
98 package Test::Moose::Go::Boom5;
105 default => '0 but true',
110 __PACKAGE__->meta->make_immutable;
114 $@ ? ::fail($@) : ::pass('017600 octal default works');
115 my $obj = Test::Moose::Go::Boom5->new;
116 ::is( $obj->id, '0 but true', 'value is still the same' );