File Coverage

blib/lib/App/Pastebin/sprunge.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	6	8	75.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	41	44	93.1

package App::Pastebin::sprunge;
use strict;
use warnings;
use v5.10.1;

# ABSTRACT: application for pasting to and reading from sprunge.us
our $VERSION = '0.011'; # VERSION


sub new {
    my $class = shift;

    my $self;
    if (@ARGV) {                # READ
        $self->{paste_id} = shift @ARGV;
        require WWW::Pastebin::Sprunge::Retrieve;
        $self->{reader} = WWW::Pastebin::Sprunge::Retrieve->new();
    }
    else {                      # WRITE
        require WWW::Pastebin::Sprunge::Create;
        $self->{writer} = WWW::Pastebin::Sprunge::Create->new();
    }
    return bless $self, $class;
}


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 $/;  };
        $self->{writer}->paste($text, lang => $lang)
            or die 'Paste failed: ', $self->{writer}->error();
        say $self->{writer};
    }
    return;
}

1;

__END__