App-Grepl

 view release on metacpan or  search on metacpan

lib/App/Grepl/Base.pm  view on Meta::CPAN


sub new {
    my ( $class, $arg_for ) = @_;
    $arg_for ||= {};

    my $reftype = reftype $arg_for || 'SCALAR';
    unless ( 'HASH' eq $reftype ) {
        $class->_croak("Argument to new must be a hashref, not a ($reftype)");
    }

    my $self = bless {} => $class;
    $self->_initialize($arg_for);
    return $self;
}

sub _croak {
    my ( $class, $message ) = @_;
    require Carp;
    Carp::croak($message);
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.883 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )