X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F020-global-destruction-helper.pl;h=fc0c3a8ae3d5cd6ce368cbf7f6d2fb6638164548;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=a690d4df95cd004a7a841ee115af05033adf2cd2;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git diff --git a/t/010_basics/020-global-destruction-helper.pl b/t/010_basics/020-global-destruction-helper.pl index a690d4d..fc0c3a8 100644 --- a/t/010_basics/020-global-destruction-helper.pl +++ b/t/010_basics/020-global-destruction-helper.pl @@ -1,8 +1,11 @@ #!/usr/bin/perl +# This is automatically generated by author/import-moose-test.pl. +# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! +use t::lib::MooseCompat; use strict; use warnings; -no warnings 'once'; # work around 5.6.2 + { package Foo; @@ -12,7 +15,7 @@ no warnings 'once'; # work around 5.6.2 my $self = shift; my ($igd) = @_; - print $igd || 0, "\n"; + print $igd; } } @@ -24,7 +27,7 @@ no warnings 'once'; # work around 5.6.2 my $self = shift; my ($igd) = @_; - print $igd || 0, "\n"; + print $igd; } __PACKAGE__->meta->make_immutable;