Force a local-only install

[gitmo/moose-presentations.git] / moose-class / exercises / lib / Person.pm

diff --git a/moose-class/exercises/lib/Person.pm b/moose-class/exercises/lib/Person.pm
index 3f3fc46..9ec8c1b 100644 (file)
--- a/moose-class/exercises/lib/Person.pm
+++ b/moose-class/exercises/lib/Person.pm
@@ -1,30 +1,4 @@
 package Person;
 
-use Moose;
-
-use namespace::clean -except => "meta";
-
-has [qw(first_name last_name)] => (
-    is => "rw",
-    required => 1,
-);
-
-sub full_name {
-    my $self = shift;
-    $self->first_name . " " . $self->last_name;
-}
-
-override BUILDARGS => sub {
-    my ( $self, @args ) = @_;
-
-    if ( @args == 1 and ref $args[0] eq 'ARRAY' ) {
-        my %p; @p{qw(first_name last_name)} = @{ $args[0] };
-        return \%p;
-    } else {
-        return super;
-    }
-};
-
-__PACKAGE__->meta->make_immutable;
 
 1;