view release on metacpan or  search on metacpan

lib/Class/Root.pm  view on Meta::CPAN

    setopts => SETOPTS,
    setoptions => SETOPTS,
    setval => SETOPTS,
    setvalue => SETOPTS,
);

while ( my ($k, $v ) = each %declare_subs ) {
    gen_sub($k, $v);
}

sub method(;&) {
    #print "method: ", Dumper(\@_);
    my $sub = shift;
    return "declare"->new( FLAGS => MF,  SUB => $sub, OPTS => {} );
};

sub class_method(;&) {
    #print "class_method: ", Dumper(\@_);
    my $sub = shift;
    return "declare"->new( FLAGS => CF|MF, SUB => $sub, OPTS => {} );
};


sub attributes {

    my @ret = ();