diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Test-Simple/t/lib/MyOverload.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Test-Simple/t/lib/MyOverload.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/MyOverload.pm b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/MyOverload.pm index b4b07bbef29..54e21942ef1 100644 --- a/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/MyOverload.pm +++ b/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/MyOverload.pm @@ -33,4 +33,11 @@ use overload $_[0]->{num}; }; +package Overloaded::Partial; + +our @ISA = qw(Overloaded); +use overload + q{""} => sub { $_[0]->{string} }, + q{!=} => sub { $_[0]->{num} != $_[1] }; + 1; |