Simpleなモジュールのコーディング

package Module;
use strict;

# constructor
sub new{
    my $class = shift;

    # if called new Module($val1,$val2);
    my($val1, $val2) = @_;


    #members declaration
    my $self = {
        mVal1 => '',
        mVal2 => ''
    };
     
    bless $self, $class;
}
 
# function
sub func{
    my $self = shift;
    my ($arg1, $arg2) = @_;

    # do something
    # can use $arg1, $arg2


}

# setter
sub setVal{
    my $self = shift;
    my($val) = @_;
    $self->{mVal} = $val;
}

#getter
sub getVal{
    my $self = shift;
    return $self->{mVal};
} 
  
1;

まぁやっぱりうまい人（誰）のモジュールをまねして書いたほうがいいに違いないんだろうな。podとかもちゃんと書けるようにして・・・