File Coverage

blib/lib/Padre/Plugin/Nopaste/Services.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Padre::Plugin::Nopaste::Services;
2              
3 2     2   55622 use v5.10;
  2         7  
  2         88  
4 2     2   12 use strict;
  2         4  
  2         65  
5 2     2   10 use warnings;
  2         5  
  2         60  
6              
7 2     2   10 use English qw( -no_match_vars );
  2         4  
  2         15  
8             local $OUTPUT_AUTOFLUSH = 1;
9              
10             our $VERSION = '0.08';
11              
12 2     2   2230 use Padre::Unload ();
  0            
  0            
13             use Moo;
14              
15             has 'servers' => (
16             is => 'ro',
17             default => sub {
18             my $self = shift;
19              
20             return [
21             'Codepeek',
22             'Debian',
23             'Gist',
24             'PastebinCom',
25             'Pastie',
26             'Shadowcat',
27             'Snitch',
28             'Ubuntu',
29             'ssh',
30             ];
31             },
32             );
33             has 'Codepeek' => (
34             is => 'ro',
35             default => sub {
36             my $self = shift;
37             return [];
38             },
39             );
40             has 'Debian' => (
41             is => 'ro',
42             default => sub {
43             my $self = shift;
44             return [];
45             },
46             );
47             has 'Gist' => (
48             is => 'ro',
49             default => sub {
50             my $self = shift;
51             return [];
52             },
53             );
54             has 'PastebinCom' => (
55             is => 'ro',
56             default => sub {
57             my $self = shift;
58             return [];
59             },
60             );
61             has 'Pastie' => (
62             is => 'ro',
63             default => sub {
64             my $self = shift;
65             return [];
66             },
67             );
68             has 'Shadowcat' => (
69             is => 'ro',
70             default => sub {
71             my $self = shift;
72              
73             return [
74             '#angerwhale',
75             '#axkit-dahut',
76             '#catalyst',
77             '#catalyst-dev',
78             '#cometd',
79             '#dbix-class',
80             '#distzilla',
81             '#handel',
82             '#iusethis',
83             '#killtrac',
84             '#london.pm',
85             '#miltonkeynes.pm',
86             '#moose',
87             '#p5p',
88             '#padre',
89             '#perl',
90             '#perl-help',
91             '#perlde',
92             '#pita',
93             '#poe',
94             '#reaction',
95             '#rt',
96             '#soap-lite',
97             '#tt',
98             ];
99             },
100             );
101             has 'Snitch' => (
102             is => 'ro',
103             default => sub {
104             my $self = shift;
105             return [];
106             },
107             );
108             has 'Ubuntu' => (
109             is => 'ro',
110             default => sub {
111             my $self = shift;
112             return [];
113             },
114             );
115             has 'ssh' => (
116             is => 'ro',
117             default => sub {
118             my $self = shift;
119             return [];
120             },
121             );
122              
123              
124             1;
125              
126             __END__