view release on metacpan or  search on metacpan

lib/Class/Method/Auto.pm  view on Meta::CPAN

package Class::Method::Auto;

use strict;
use warnings;

our $VERSION = "1.00";

use attributes 'get';

sub my_croak($$) {
	my ($package, $method) = @_;
	require Carp;
	Carp::croak "Undefined subroutine &${package}::$method called";
}

sub import {
	shift;
	my $target = caller;
	my ($regexp, $check_attributes, @methods);
	for (@_) {

t/Class-Method-Auto.t  view on Meta::CPAN

# its man page ( perldoc Test::More ) for help writing this test script.

use strict;
use warnings;

package Foo;

use strict;
use warnings;

sub bar($) :method {
	return shift()."::bar";
}

sub baz($) :method {
	return shift()."::baz";
}

sub nomethod($) {
	return shift()."::nomethod";
}

package Blurp;

use strict;
use warnings;

our @ISA = 'Foo';