view release on metacpan or  search on metacpan

NCopy.pm  view on Meta::CPAN

    }

    if ($this->{'_stop'}) {
	$this->{'_stop'}++;
	return 0;
    } else {
	@copies;
    }
}

sub cp(@) {
    return copy @_;
}

# instantiate our object
sub new(@)
{
    my $this = shift;
    
    my $conf = {
        'test'               => 0,