File Coverage

blib/lib/Comskil/JQueue.pm
Criterion Covered Total %
statement 16 20 80.0
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 22 27 81.4


line stmt bran cond sub pod time code
1            
2             ## #TODO Create the interface that will be standard
3             ## #TODO See if you can make some functions abstract and some virtual in Perl.
4            
5            
6            
7            
8             package Comskil::JQueue;
9            
10             =head1 NAME
11            
12             Comskil::JWand - The great new Comskil::JWand!
13            
14             =head1 VERSION
15            
16             Version 0.1
17            
18             =cut
19            
20 1     1   1182 use strict;
  1         2  
  1         34  
21 1     1   5 use warnings;
  1         1  
  1         30  
22            
23             =head1 SYNOPSIS
24            
25             Quick summary of what the module does.
26            
27             Perhaps a little code snippet.
28            
29             use Comskil::JWand;
30            
31             my $foo = Comskil::JWand->new();
32             ...
33             =cut
34            
35             BEGIN {
36 1     1   4 use Exporter;
  1         2  
  1         125  
37 1     1   2 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
38            
39 1         2 $VERSION = '0.10';
40 1         14 @ISA = qw( Exporter );
41 1         2 @EXPORT = qw( );
42 1         2 @EXPORT_OK = ( ); ## qw($Var1 %Hashit &func3);
43 1         104 %EXPORT_TAGS = ( ); ## e.g. TAG => [ qw!name1 name2! ],
44             }
45            
46             our @EXPORT_OK;
47            
48 1     1   498 END { }
49            
50             =head1 EXPORT
51            
52             A list of functions that can be exported. You can delete this section
53             if you don't export anything, such as for a purely object-oriented module.
54            
55             =over 8
56            
57             =item * new()
58            
59             =item * grabVersions()
60            
61             =item * grabStatuses()
62            
63             =back
64            
65             =head1 SUBROUTINES/METHODS
66            
67             =cut
68            
69            
70             sub new {
71 0     0 1   my ($class,@args) = @_;
72 0           my $self = ( );
73 0           bless($self,$class);
74            
75 0           return($self);
76             }
77            
78             1;
79             __END__