Add ARM files

[dh-make-perl] / dev / arm / libtest-simple-perl / libtest-simple-perl-0.80 / t / lib / MyOverload.pm

diff --git a/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/MyOverload.pm b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/MyOverload.pm
new file mode 100644 (file)
index 0000000..91632e9
--- /dev/null
+++ b/dev/arm/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