view release on metacpan or  search on metacpan

t/lib/t.pl  view on Meta::CPAN

  my $b = shift;
  my $a = shift;
  my $icy = $b->rebuilder($a);
  dumpsrc $icy;
  my $code = eval($icy);
  return $code->(@_) unless $@;
  print $@;
}

sub init {
  strict->import();
  warnings->import();
  lib->import( file(file(__FILE__)->dir )->stringify );
}


1
__END__