use strict;
use warnings;
-
+no warnings 'once'; # work around 5.6.2
{
package Foo;
my $self = shift;
my ($igd) = @_;
- print $igd;
+ print $igd || 0, "\n";
}
}
my $self = shift;
my ($igd) = @_;
- print $igd;
+ print $igd || 0, "\n";
}
__PACKAGE__->meta->make_immutable;