From 9be6ae58f74adb513f32dfe1d793df5bfb86ab26 Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Fri, 16 Dec 2016 11:03:26 +0100 Subject: SBO::Lib::Readme: add documentation for ask_other_readmes --- SBO-Lib/lib/SBO/Lib/Readme.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'SBO-Lib/lib/SBO/Lib') diff --git a/SBO-Lib/lib/SBO/Lib/Readme.pm b/SBO-Lib/lib/SBO/Lib/Readme.pm index f01c923..e8f27f0 100644 --- a/SBO-Lib/lib/SBO/Lib/Readme.pm +++ b/SBO-Lib/lib/SBO/Lib/Readme.pm @@ -77,6 +77,16 @@ sub ask_opts { return(); } +=head2 ask_other_readmes + + ask_other_readmes($sbo, $location); + +C checks if there are other readmes for the C<$sbo> in +C<$location>, and if so, asks the user if they should be displayed, and then +displays them if the user didn't decline. + +=cut + sub ask_other_readmes { my ($sbo, $location) = @_; my @readmes = sort grep { ! m!/README$! } glob "$location/README*"; -- cgit v1.2.3