[Bps-public-commit] r18294 - in Net-Google-Code/branches/write: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb  9 06:56:39 2009
New Revision: 18294

Modified:
   Net-Google-Code/branches/write/   (props changed)
   Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm

Log:
 r19708 at sunnavys-mb:  sunnavy | 2009-02-09 19:48:20 +0800
 added an html attribute to save the content of html


Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm	Mon Feb  9 06:56:39 2009
@@ -5,6 +5,11 @@
 use HTML::TreeBuilder;
 use Params::Validate qw(:all);
 
+has 'html' => (
+    isa => 'Str',
+    is  => 'rw',
+);
+
 sub html_tree {
     my $self = shift;
     my %args = validate( @_, { content => { type => SCALAR, optional => 1 } } );