Select Code to Download

Class::Trait->apply( $some_class, $some_trait );
my $build_class_sub = $some_trait->can('build_class');
$build_class_sub->($some_class);

sub build_class {
   my ($class) = @_;
...
   $class->mk_accessors( qw(smb_username) );
   ...
}

sub build_class {
    my ($class) = @_;
...
    };
    $class->register_destructor($destructor);
}

sub logpath {
    my ($this) = @_;
...
    return File::Spec->rel2abs( join( '-', split /::/, __PACKAGE__ ) .
+ '.log',
        $this->log_root );
}

sub preapply {
    my ($class) = @_;
...
            $this->log_root );
    };
}