X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Fi386%2Flibtest-simple-perl%2Flibtest-simple-perl-0.80%2Ft%2Flib%2FMyOverload.pm;fp=dev%2Fi386%2Flibtest-simple-perl%2Flibtest-simple-perl-0.80%2Ft%2Flib%2FMyOverload.pm;h=91632e99e7b405328b077a8a18c989dd73d94276;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hp=0000000000000000000000000000000000000000;hpb=df794b845212301ea0d267c919232538bfef356a;p=dh-make-perl

diff --git a/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/MyOverload.pm b/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/MyOverload.pm
new file mode 100644
index 0000000..91632e9
--- /dev/null
+++ b/dev/i386/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/MyOverload.pm
@@ -0,0 +1,29 @@
+package Overloaded;
+
+sub new {
+    my $class = shift;
+    bless { string => shift, num => shift }, $class;
+}
+
+
+package Overloaded::Compare;
+use vars qw(@ISA);
+@ISA = qw(Overloaded);
+
+# Sometimes objects have only comparison ops overloaded and nothing else.
+# For example, DateTime objects.
+use overload
+        q{eq}   => sub { $_[0]->{string} eq $_[1] },
+        q{==}   => sub { $_[0]->{num}    == $_[1] };
+
+
+
+package Overloaded::Ify;
+use vars qw(@ISA);
+@ISA = qw(Overloaded);
+
+use overload
+        q{""}    => sub { $_[0]->{string} },
+        q{0+}    => sub { $_[0]->{num} };
+
+1;
\ No newline at end of file