Finished slides & exercises for section 4 (method modifiers)

[gitmo/moose-presentations.git] / moose-class / exercises / answers / 04-method-modifiers / HasAccount.pm

package HasAccount;

use Moose::Role;

has balance => (
    is      => 'rw',
    default => 100,
);

sub deposit {
    my $self   = shift;
    my $amount = shift;

    $self->balance( $self->balance + $amount );
}

sub withdraw {
    my $self   = shift;
    my $amount = shift;

    die "Balance cannot be negative"
        if $self->balance < $amount;

    $self->balance( $self->balance - $amount );
}

no Moose::Role;

1;