package Integer;
use strict;

sub new {
        my $class = shift;
        my $self = {};
        $self->{i} = shift;
        bless $self, $class;
}

sub get {
        my $self = shift;
        return $self->{i};
}

1;