File Coverage

blib/lib/Script/Singleton.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 6 83.3
pod n/a
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Script::Singleton;
2              
3 4     4   299118 use strict;
  4         40  
  4         134  
4 4     4   22 use warnings;
  4         7  
  4         149  
5              
6 4     4   25 use Carp qw(croak);
  4         19  
  4         213  
7 4     4   2575 use IPC::Shareable;
  4         78308  
  4         585  
8              
9             our $VERSION = '0.01';
10              
11             sub import {
12 4     4   47 my ($class, $glue, $warn) = @_;
13              
14 4 100       21 if (! defined $glue) {
15 1         1691 croak "Usage: use Script::Singleton GLUE;";
16             }
17              
18 3         15 IPC::Shareable->singleton($glue, $warn);
19             }
20              
21       0     sub __placeholder {}
22              
23             1;
24             __END__