summaryrefslogtreecommitdiff
path: root/t/lib/Charlie.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Charlie.pm')
-rw-r--r--t/lib/Charlie.pm28
1 files changed, 28 insertions, 0 deletions
diff --git a/t/lib/Charlie.pm b/t/lib/Charlie.pm
new file mode 100644
index 0000000..7d312bd
--- /dev/null
+++ b/t/lib/Charlie.pm
@@ -0,0 +1,28 @@
+use 5.006;
+use strict;
+use warnings;
+
+package Charlie;
+
+use subs qw/bar baz/;
+
+use Class::Tiny qw/foo bar/, { baz => 23 };
+
+sub bar {
+ my $self = shift;
+ if (@_) {
+ $self->{bar} = [@_];
+ }
+ return $self->{bar};
+}
+
+sub baz {
+ my $self = shift;
+ if (@_) {
+ $self->{baz} = shift;
+ }
+ return $self->{baz} ||=
+ Class::Tiny->get_all_attribute_defaults_for( ref $self )->{baz};
+}
+
+1;