package Junk;
use Data::Dump qw[ pp ];

sub new {
    my $class = shift;
    return bless { @_ }, $class;
}

sub dump {
    my $self = shift;
    pp $self;
}

sub add{
    my( $self, $key, $value ) = @_;
    $self->{ $key } = $value;
    return;
}

1;