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

package Clipboard;

use 5.006002;

use strict;
use warnings;

use Carp;

our $VERSION = '0.026_01';

sub import {
    return;
}

{
    my $clipboard;

    sub copy {
	my ( undef, $content ) = @_;
	$clipboard = $content;
	return;
    }

    sub paste {
	return $clipboard;
    }
}

1;

__END__