view release on metacpan or  search on metacpan

t/transaction.t  view on Meta::CPAN

	sub AUTOLOAD {
		my ($self, @args) = @_;
		(my $method = our $AUTOLOAD) =~ s{.*:}{};
		push @{$self->{method_calls}{$method}}, [@args];
		return $self;
	}
}

my $stub_dbh = stub::db->new;

sub my_try(&) {
	my $code = shift;
	my $error = do {
		local $@;
		eval {
			$code->();
		};
		$@;
	};
	return $error;
}