Blosxom::Header::Object

gistfile1.pl

package Blosxom::Header::Object;

sub new {
    my ( $class, %method ) = @_;
    
    while ( my ( $method, $code_ref ) = each %method ) {
        next if ref $code_ref ne 'CODE';
        my $slot = __PACKAGE__ . "::$method";

        {
            no strict 'refs';
            *$slot = $code_ref;
        }
    }

    return bless \do { my $anon_scalar }, $class;
}