From b398c46825dc73ac92677893dd2a714cd21f8a4d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 26 Mar 2011 12:40:12 +0000
Subject: collections working, subclasses, strings

---
 lib/DeWeave/WBO.pm | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

(limited to 'lib/DeWeave/WBO.pm')

diff --git a/lib/DeWeave/WBO.pm b/lib/DeWeave/WBO.pm
index 8d8a1ba..56bc3e1 100644
--- a/lib/DeWeave/WBO.pm
+++ b/lib/DeWeave/WBO.pm
@@ -1,9 +1,10 @@
-package DeWeave::WBO;
+package DeWeave::WBO;{
 use Moose;
 use namespace::autoclean;
 use MooseX::Types::Moose qw(Int Str Num);
 use JSON::Any;
 use Try::Tiny;
+use Data::Dump 'pp';
 
 has id => (
     isa => Str,
@@ -24,6 +25,7 @@ has sortindex => (
 );
 
 has payload => (
+    traits => ['WBOInternal'],
     isa => Str,
     required => 1,
     is => 'ro',
@@ -66,5 +68,34 @@ around BUILDARGS => sub {
     return $args;
 };
 
+sub as_string {
+    my ($self) = @_;
+
+    my $meta = $self->meta;
+
+    my $str = '';
+
+    for my $attribute ( $meta->get_all_attributes ) {
+
+        next if $attribute->does('DeWeave::WBO::Meta::Attribute::Internal');
+        next unless $attribute->has_value($self);
+
+        my $reader = $attribute->get_read_method;
+        $str .= sprintf "%s -> %s\n",
+            $attribute->name,
+                pp ($self->$reader);
+    }
+
+    return $str;
+}
+}
+
+package DeWeave::WBO::Meta::Attribute::Internal;{
+use Moose::Role;
+}
+
+package Moose::Meta::Attribute::Custom::Trait::WBOInternal;{
+sub register_implementation { 'DeWeave::WBO::Meta::Attribute::Internal' }
+}
 
 1;
-- 
cgit v1.2.3