view release on metacpan or  search on metacpan

lib/macro.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
        return;
}
 
sub backend{
        return $backend;
}
 
sub new :method{
        my($class) = @_;
 
        return bless {} => $class;
}
 
sub defmacro :method{
        my $self = shift;
 
        while(my($name, $macro) = splice @_, 0, 2){
                if( !defined($name) || !defined($macro) ){
                        warnings::warnif('Illigal declaration of macro');
                        next;
                }