CPAN::Groonga

n one bulk
                                  when PIPELINING (default 10)
   -j --json                      output JSON

=head1 SEE ALSO

Perl class interface L<Net::SMTP::Verify>

=cut

use Net::SMTP

k when PIPELINING (default 10)',
);
has 'json' => (
  is => 'rw', isa => 'Bool',
  traits => [ 'Getopt' ],
  cmd_aliases => 'j',
  documentation => 'output JSON',
);

has '+resolver' => ( traits => [ 

my $rs = $self->check( $self->size, $self->from, @{$self->extra_argv} );

  if( $self->json ) {
    $rs->dump_json;
  } else {
    $rs->print_text;
  }

  return;
}

1;

__END__

=pod

=encoding UTF-8

CT: resultset for Net::SMTP::Verify checks

use Net::SMTP::Verify::Result;

use Data::Dumper;
use JSON;


has 'results' => (
  is => 'ro', isa => 'HashRef[Net::SMTP::Verify::Result]', lazy => 1,
  def

ft;
  print Dumper $self->entries;
  return;
}


sub dump_json {
  my $self = shift;
  foreach my $rcpt ( $self->entries ) {
    print to_json { %$rcpt }, {
      pretty => 1,
    };
  }
  return;
}

d in the array.

=head2 dump()

Output all results with Data::Dumper.

=head2 dump_json()

Output all results as JSON.

=head2 print_text()

Output all results as text.

=head2 is_all_success()

Retur