view release on metacpan or  search on metacpan

bin/sprunge  view on Meta::CPAN

);

pod2usage(
    -verbose => 2,
) if $opts{help};


if (delete $opts{version}) {
    my $this = __PACKAGE__;
    my $this_ver = __PACKAGE__->VERSION();
    say "$this version $this_ver" and exit;
}

App::Pastebin::sprunge->new()->run($opts{lang});

__END__

=pod

=encoding UTF-8

lib/App/Pastebin/sprunge.pm  view on Meta::CPAN

}


sub run {
    my $self = shift;
    my $lang = shift;

    if ($self->{paste_id}) {    # READ
        $self->{reader}->retrieve($self->{paste_id})
            or die "Reading paste $self->{paste_id} failed: ", $self->{reader}->error();
        say $self->{reader};
    }
    else {                      # WRITE
        my $text = do { local $/; <STDIN> };
        $self->{writer}->paste($text, lang => $lang)
            or die 'Paste failed: ', $self->{writer}->error();
        say $self->{writer};
    }
    return;
}

1;

__END__

=pod