package Mypackage;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = {
	_value => shift,
    };
    bless $self, $class;
    return $self;
}

sub getValue {
    my( $self ) = @_;
    return $self->{_value};
}

sub setValue {
    my ( $self, $value ) = @_;
    $self->{_value} = $value if defined($value);
    # return $self->{_value};
}

1;