File Coverage

blib/lib/Comskil/JServer.pm
Criterion Covered Total %
statement 26 50 52.0
branch n/a
condition n/a
subroutine 8 19 42.1
pod 11 11 100.0
total 45 80 56.2


line stmt bran cond sub pod time code
1             #TODO Header documentation
2             #TODO Make some methods
3            
4            
5            
6            
7             package Comskil::JServer;
8            
9             =head1 NAME
10            
11             Comskil::JWand - The great new Comskil::JWand!
12            
13             =head1 VERSION
14            
15             Version 0.1
16            
17             =cut
18            
19 1     1   2718 use strict;
  1         2  
  1         42  
20 1     1   6 use warnings;
  1         2  
  1         41  
21            
22             =head1 SYNOPSIS
23            
24             Quick summary of what the module does.
25            
26             Perhaps a little code snippet.
27            
28             use Comskil::JWand;
29            
30             my $foo = Comskil::JWand->new();
31             ...
32             =cut
33            
34             BEGIN {
35 1     1   5 use Exporter;
  1         2  
  1         130  
36            
37 1     1   3 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
38            
39 1         1 $VERSION = '0.10';
40 1         22 @ISA = qw( Exporter );
41 1         3 @EXPORT = qw( );
42 1         2 @EXPORT_OK = qw( );
43 1         424 %EXPORT_TAGS = ( ALL => [ qw( ) ] );
44             }
45            
46 1     1   6 END { }
47            
48             =head1 EXPORT
49             A list of functions that can be exported. You can delete this section
50             if you don't export anything, such as for a purely object-oriented module.
51            
52             =over 8
53            
54             =item sub new()
55            
56             =item sub getJProject()
57            
58             =item sub getJIssue()
59            
60             =item sub getJIssueFromKey()
61            
62             =item findJIssueFromJQL()
63            
64             =item getAttachmentList()
65            
66             =back
67            
68             =head1 SUBROUTINES/METHODS
69            
70             =cut
71            
72            
73            
74            
75             sub new {
76 0     0 1   my ($class,@args) = @_;
77 0           my $self = ( );
78 0           bless($self,$class);
79            
80 0           return($self);
81             }
82            
83             sub getJProject {
84 0     0 1   my ($self,@args) = @_;
85 0           return($self);
86             }
87            
88             sub getJIssue {
89 0     0 1   my ($self,@args) = @_;
90 0           return($self);
91             }
92            
93             sub getJIssueFromKey {
94 0     0 1   my ($self,@args) = @_;
95 0           return($self);
96             }
97            
98             sub findJIssueFromJQL {
99 0     0 1   my ($self,@args) = @_;
100 0           return($self);
101             }
102            
103             sub getAttachmentList {
104 0     0 1   my ($self,@args) = @_;
105 0           return($self);
106             }
107            
108             =head2 grabAttachmentFile()
109             =cut
110            
111             sub grabAttachmentFile {
112 0     0 1   my ($self,@args) = @_;
113 0           return($self);
114             }
115            
116             =head2 mirrorAttachmentFile()
117             =cut
118            
119             sub mirrorAttachmentFile {
120 0     0 1   my ($self,@args) = @_;
121 0           return($self);
122             }
123            
124             =head2 setField()
125             =cut
126            
127             sub setField {
128 0     0 1   my ($self,@args) = @_;
129 0           return($self);
130             }
131            
132             =head2 setProject()
133             =cut
134            
135             sub setProject {
136 0     0 1   my ($self,@args) = @_;
137 0           return($self);
138             }
139            
140             =head2 addJQueue()
141             =cut
142            
143             sub addJQueue {
144 0     0 1   my ($self,@args) = @_;
145 0           return($self);
146             }
147            
148            
149            
150             BEGIN {
151 1     1   5 use Exporter ();
  1         2  
  1         137  
152 1     1   2 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
153            
154 1         2 $VERSION = '0.10';
155 1         16 @ISA = qw(Exporter);
156 1         4 @EXPORT = qw(
157             findJIssueFromJQL
158             getJIssue
159             getJIssueFromKey
160             getJIssueAttachments
161             setJIssueField
162             getJProject
163             setProject
164             addJQueue
165             );
166 1         3 %EXPORT_TAGS = ( ); ## e.g. TAG => [ qw!name1 name2! ],
167 1         53 @EXPORT_OK = ( ); ## qw($Var1 %Hashit &func3);
168             }
169            
170             our @EXPORT_OK;
171            
172 1     1   5 END { }
173            
174            
175             1;
176             __END__