view release on metacpan or  search on metacpan

vptk_w/Project.pm  view on Meta::CPAN

sub new { # default constructor
  my $class = shift;
  my $this  = {list=>[],data=>{}};

  bless $this => $class;
}

sub init { # just clean all
  my $this = shift;
  my $pData = shift;