::Words;
use strict;
use warnings;
use 5.026;
use experimental qw( signatures );
use JSON::MaybeXS qw( encode_json );
use Text::HumanComputerWords 0.02;
use PPI;
use URI;
use base qw( Pod::Simple );
umanComputerWords->default_perl,
),
);
}
$self->callback(sub {
my $row = encode_json \@_;
print "--- $row\n";
});
$self;
}
sub skip_sections ($self, @sections)
{
$self->s