The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
package App::Nopaste::Service::Shadowcat;
{ our $VERSION = '1.002'; }
use base 'App::Nopaste::Service';

sub available {
    my $self = shift;
    my %args = @_;
    return !(exists($args{private}) && $args{private});
}

sub uri { "http://paste.scsys.co.uk" }

1;
__END__

=pod

=head1 NAME

App::Nopaste::Service::Shadowcat - http://paste.scsys.co.uk/

=head1 VERSION

version 1.002

=cut