package Phrase;

use strict;
use warnings;
use 5.010;

sub new {
    my $self = {};

    $self->{QUANTITIES} = {};
    $self->{TOTAL_QUANT} = 0;

    bless($self);
    return $self;
}

sub total_quant {
    my $self = shift;
    return $self->{TOTAL_QUANT};
}

sub quantities {
    my $self = shift;
    my $key = shift;

    if (@_) {
        my $quant = shift;

        $self->{QUANTITIES}->{$key} = $quant; 
        $self->{TOTAL_QUANT} += $quant;
    }

    return $self->{QUANTITIES}->{$key};
}

1;