diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-05-23 07:52:33 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-05-23 07:52:33 +0200 |
| commit | 7b10dff116a5d50d8c81b0f2ceabe4c82ca9684e (patch) | |
| tree | 388240ccd245c3100de87e7b3159b7f4e8491855 | |
| parent | af20e55e615559761a4411cb669e552718df121c (diff) | |
Specify Test::Pod::Coverage version, tidy App::Raps2::UI
| -rw-r--r-- | Build.PL | 2 | ||||
| -rw-r--r-- | lib/App/Raps2/UI.pm | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -11,7 +11,7 @@ my $build = Module::Build->new( 'Test::MockObject' => 0, 'Test::More' => 0, 'Test::Pod' => 0, - 'Test::Pod::Coverage' => 0, + 'Test::Pod::Coverage' => 1.00, }, license => 'unrestricted', module_name => 'App::Raps2', diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm index b588222..2ba7002 100644 --- a/lib/App/Raps2/UI.pm +++ b/lib/App/Raps2/UI.pm @@ -92,12 +92,12 @@ sub to_clipboard { my ( $self, $str ) = @_; open( my $clipboard, q{|-}, 'xclip -l 1' ) - or confess("Failed to execute xclip -l 1: $!"); + or confess("Failed to execute xclip -l 1: $!"); print $clipboard $str; close($clipboard) - or confess("Failed to close pipe to xclip: $!"); + or confess("Failed to close pipe to xclip: $!"); return; } |