path: root/template/perl/snip-new.pl

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