view release on metacpan or  search on metacpan

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
# 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';