package Address;

use strict;
use warnings;

use base 'MyBaseClass';

sub address {
    my $self = shift;
    return $self->{address} unless @_;

    #rip apart address
    @{ $self->{address} }{ qw(number street)  } = split ' ', ( shift @{ $_[0] } ), 2;
    my $line = pop @{ $_[0] };
    @{ $self->{address} }{ qw(city state zip) } = $line =~ /([^,]),\s*(\S+)\s*(\d+)/;
    $self->{address}{additional} = $_[0] if @{ $_[0] };
    return $self->{address};
}

1;