From 2a1c8d80336a93bdf5b89008917947b4ca912f27 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 11 Jul 2010 22:44:16 +0100
Subject: test for TT::Handle

---
 t/lib/Test/Addition.pm | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 t/lib/Test/Addition.pm

(limited to 't/lib/Test/Addition.pm')

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;
-- 
cgit v1.2.3