From 7b10dff116a5d50d8c81b0f2ceabe4c82ca9684e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 23 May 2011 07:52:33 +0200 Subject: Specify Test::Pod::Coverage version, tidy App::Raps2::UI --- Build.PL | 2 +- lib/App/Raps2/UI.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Build.PL b/Build.PL index a050147..0c68e49 100644 --- a/Build.PL +++ b/Build.PL @@ -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; } -- cgit v1.2.3