diff options
Diffstat (limited to 'website.pl')
-rwxr-xr-x | website.pl | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/website.pl b/website.pl deleted file mode 100755 index cb81ff3..0000000 --- a/website.pl +++ /dev/null @@ -1,63 +0,0 @@ -#!/usr/bin/env nix-shell -#!nix-shell -i perl -p perl less --pure - -=head1 NAME - -cli.pl - Using GetOpt::Long and Pod::Usage - -=head1 SYNOPSIS - -sample [options] [file ...] - - Options: - --help brief help message - --man full documentation - -=head1 OPTIONS - -=over 4 - -=item B<-h, --help> - -Print a brief help message and exits. - -=item B<--man> - -Prints the manual page and exits. - -=back - -=head1 DESCRIPTION - -B<This program> will read the given input file(s) and do something -useful with the contents thereof. - -=cut - -use strict; -use warnings; -use Getopt::Long qw(:config no_ignore_case bundling auto_help auto_version); -use Pod::Usage qw(pod2usage); - -my $help = 0; -my $title = ''; -GetOptions( - "t|title=s" => \$title, - 'help|h|?' => \$help -) or pod2usage(-verbose => 1); -pod2usage( - -verbose => 2, - -exitval => 0 -) if $help || (defined $ARGV[0] and $ARGV[0] eq "help"); - -## If no arguments were given, then allow STDIN to be used only -## if it's not connected to a terminal (otherwise print usage) -pod2usage("$0: No files given.") if ((@ARGV == 0) && (-t STDIN)); - -print `fd sh`; -print `find . -type f -name '*sh*'`; - - -# FIXME: add tests (inline + bats) - - |