Removed as_xml bits from 06 answers

[gitmo/moose-presentations.git] / moose-class / exercises / answers / 06-advanced-attributes / Person.pm

diff --git a/moose-class/exercises/answers/06-advanced-attributes/Person.pm b/moose-class/exercises/answers/06-advanced-attributes/Person.pm
index ce155f6..f9bb240 100644 (file)
--- a/moose-class/exercises/answers/06-advanced-attributes/Person.pm
+++ b/moose-class/exercises/answers/06-advanced-attributes/Person.pm
@@ -3,7 +3,7 @@ package Person;
 use BankAccount;
 use Moose;
 
-with 'Printable', 'OutputsXML';
+with 'Printable';
 
 has account => (
     is      => 'rw',
@@ -40,14 +40,6 @@ sub full_name {
 
 sub as_string { $_[0]->full_name }
 
-sub as_xml {
-    my $self = shift;
-
-    return
-        ( map { "<$_>" . ( $self->$_ || q{} ) . "</$_>" } qw( first_name last_name title ) ),
-        inner();
-}
-
 no Moose;
 
 __PACKAGE__->meta->make_immutable;