summaryrefslogtreecommitdiff
path: root/t/lib/SpecialClass.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/SpecialClass.pm')
-rw-r--r--t/lib/SpecialClass.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/t/lib/SpecialClass.pm b/t/lib/SpecialClass.pm
new file mode 100644
index 0000000..9dbb3e9
--- /dev/null
+++ b/t/lib/SpecialClass.pm
@@ -0,0 +1,12 @@
+package SpecialClass;
+use strict;use warnings;
+use overload
+ '""' => \&to_string,
+ '0+' => \&to_number,
+ fallback=>1;
+
+sub new { my ($class,%data) = @_; bless {%data},$class }
+sub to_string { return $_[0]->{str} || 'foo' }
+sub to_number { return $_[0]->{num} || 12 }
+
+1;