Help for this page

Select Code to Download


  1. or download this
    sub new {
    my ($class, %args) = @_;
...
    die 'ERROR WITH CONNECTION AUTH' unless $self->_connection_try();
    return $self;
}
  2. or download this
    my $a;

...
{
    # use $a normally
}
  3. or download this
    sub _arg_validation {
    my $args = shift;
...
                        $args->{password} =~ /\w{2,}/;
    return 0;
}