summaryrefslogtreecommitdiff
path: root/t/lib/Test/Addition.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Test/Addition.pm')
-rw-r--r--t/lib/Test/Addition.pm56
1 files changed, 56 insertions, 0 deletions
diff --git a/t/lib/Test/Addition.pm b/t/lib/Test/Addition.pm
new file mode 100644
index 0000000..888bb78
--- /dev/null
+++ b/t/lib/Test/Addition.pm
@@ -0,0 +1,56 @@
+use 5.008003;
+use MooseX::Declare;
+
+class Test::Addition extends Thread::Task {
+ use MooseX::Types::Moose qw(Int);
+
+ has prepare_cnt => (
+ traits => ['Counter'],
+ isa => Int,
+ is => 'ro',
+ default => 0,
+ init_arg => undef,
+ handles => {
+ prepare => 'inc',
+ },
+ );
+
+ has finish_cnt => (
+ traits => ['Counter'],
+ isa => Int,
+ is => 'ro',
+ default => 0,
+ init_arg => undef,
+ handles => {
+ finish => 'inc',
+ },
+ );
+
+ has run_cnt => (
+ traits => ['Counter'],
+ isa => Int,
+ is => 'ro',
+ default => 0,
+ init_arg => undef,
+ handles => {
+ mark_run => 'inc',
+ },
+ );
+
+ has 'x' => (isa=>Int,is=>'ro',required=>1);
+ has 'y' => (isa=>Int,is=>'ro',required=>1);
+ has 'z' => (isa=>Int,is=>'rw',required=>0);
+
+ method run() {
+ $self->mark_run;
+ $self->z($self->x + $self->y);
+ return;
+ }
+
+ before from_string(ClassName $class: Str $serialization) {
+ warn "$class->from_string\n";
+ }
+
+}
+
+1;