view release on metacpan or  search on metacpan

lib/Mojolicious/Command/nopaste/Service.pm  view on Meta::CPAN

}

sub paste { die 'Not implemented' }

sub slurp {
  my ($self, @files) = @_;
  @files = @{ $self->files } unless @files;

  my $content = do {
    local $/;
    local @ARGV = @files;
    decode 'UTF-8', <>;
  };

  # Remove trailing newline as some sites won't do it for us
  chomp $content;
  return $content;
}

sub post_to_irc {
  my ($self, $paste) = @_;