/usr/local/CPAN/GnuPG-Interface/GnuPG/HashInit.pm

• package GnuPG::HashInit
  • hash_init
• __END__
• EOF

package GnuPG::HashInit;
use Any::Moose 'Role';

sub hash_init {
    my ($self, %args) = @_;
    while ( my ( $method, $value ) = each %args ) {
        $self->$method($value);
    }
}

1;
__END__