view release on metacpan or  search on metacpan

misc/lib/Queue/Q4M/Benchmark.pm  view on Meta::CPAN

    is => 'rw',
    isa => 'Str',
    required => 1,
    trigger => sub { $_[0]->connect_info->[0] = $_[1] }
);

has 'username' => (
    is => 'rw',
    isa => 'Str',
    required => 1,
    default => sub { (getpwuid($>))[0] },
    trigger => sub { $_[0]->connect_info->[1] = $_[1] }
);

has 'password' => (
    is => 'rw',
    isa => 'Str',
    trigger => sub { $_[0]->connect_info->[2] = $_[1] }
);

has '__connect_info' => (