Add an example using NativeTraits

diff --git a/example/traits.pl b/example/traits.pl
new file mode 100644 (file)
index 0000000..50a74c6
--- /dev/null
+++ b/example/traits.pl
@@ -0,0 +1,30 @@
+#!perl
+package IntStack;
+use Mouse;
+
+has storage => (
+    is => 'ro',
+    isa => 'ArrayRef[Int]',
+
+    default => sub{ [] },
+    traits  => [qw(Array)],
+
+    handles => {
+        push => 'push',
+        pop  => 'pop',
+        top  => [ get => -1 ],
+    },
+);
+
+__PACKAGE__->meta->make_immutable();
+
+package main;
+
+my $stack = IntStack->new;
+
+$stack->push(42);
+$stack->push(27);
+
+print $stack->pop, "\n";
+print $stack->top, "\n";
+