X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fexercises%2Fanswers%2F04-method-modifiers%2FEmployee.pm;h=11b8db4112efec9d6fae8fc15706ecb9e96ade69;hb=79ec5c5eefba9315fbb3ea622f47eb99dbd78ef7;hp=1bb91fd08a13e262f3448f15e20f70916c46be3d;hpb=26164c8d9acd6c4d8bad6fe3494db86102bac515;p=gitmo%2Fmoose-presentations.git diff --git a/moose-class/exercises/answers/04-method-modifiers/Employee.pm b/moose-class/exercises/answers/04-method-modifiers/Employee.pm index 1bb91fd..11b8db4 100644 --- a/moose-class/exercises/answers/04-method-modifiers/Employee.pm +++ b/moose-class/exercises/answers/04-method-modifiers/Employee.pm @@ -28,14 +28,6 @@ sub _build_salary { return $self->salary_level * 10000; } -augment as_xml => sub { - my $self = shift; - - return - ( map { "<$_>" . ( $self->$_ || q{} ) . "" } qw( salary salary_level ssn ) ), - inner(); -}; - no Moose; __PACKAGE__->meta->make_immutable;