package Purified::Confusion;

sub new {
    # my $proto = shift(@_);
    # my $class = ref($proto) || $proto;
    # To restore sanity, replace the line below
    # with the above two commented lines.
    my $class = shift(@_);
    bless [@_], $class;
}

sub get {
    my $self = shift(@_);
    return @$self    if  ! @_;
    return @{$self}[@_];
}

1;