view release on metacpan or  search on metacpan

examples/currency.pl  view on Meta::CPAN

    use Role::Basic 'with';

    with 'Comparable', 'Printable';

    # note that writing this constructor would not be needed with Moose and it
    # would have better validation
    sub new {
        my ( $class, $arg_for ) = @_;
        $arg_for ||= {};
        my $amount = $arg_for->{amount} || 0;
        bless { amount => $amount } => $class;
    }

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

    sub compare {
        my ( $self, $other ) = @_;