File Coverage

inc/mock/Clipboard.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Clipboard;
2              
3 1     1   27 use 5.006002;
  1         2  
4              
5 1     1   13 use strict;
  1         1  
  1         24  
6 1     1   3 use warnings;
  1         2  
  1         35  
7              
8 1     1   5 use Carp;
  1         1  
  1         164  
9              
10             our $VERSION = '0.026_01';
11              
12             sub import {
13 2     2   4 return;
14             }
15              
16             {
17             my $clipboard;
18              
19             sub copy {
20 1     1 1 2 my ( undef, $content ) = @_;
21 1         2 $clipboard = $content;
22 1         2 return;
23             }
24              
25             sub paste {
26 2     2 1 8 return $clipboard;
27             }
28             }
29              
30             1;
31              
32             __END__