xref: /dports/x11/p5-Clipboard/Clipboard-0.28/t/lib/Test/MockClipboard.pm

package PhonyClipboard;
our $board = '';
sub copy { my $self = shift; $board = $_[0]; }
sub paste { my $self = shift; $board }
$Clipboard::driver = 'PhonyClipboard';
1;