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   293774 use strict;
  4         37  
  4         127  
4 4     4   24 use warnings;
  4         8  
  4         124  
5              
6 4     4   19 use Carp qw(croak);
  4         19  
  4         215  
7 4     4   2553 use IPC::Shareable;
  4         174188  
  4         572  
8              
9             our $VERSION = '0.02';
10              
11             sub import {
12 4     4   49 my ($class, $glue, $warn) = @_;
13              
14 4 100       19 if (! defined $glue) {
15 1         2027 croak "Usage: use Script::Singleton GLUE;";
16             }
17              
18 3         16 IPC::Shareable->singleton($glue, $warn);
19             }
20              
21       0     sub __placeholder {}
22              
23             1;
24             __END__