File Coverage

lib/Bio/BPWrapper.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	2	4	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	25	33	75.7

#!/usr/bin/env perl
# Copyright (c) 2016 by Weigang Qiu Lab

package Bio::BPWrapper;

use strict;
use warnings;
use 5.010;
our $VERSION = '1.15';

use constant PROGRAM => 'Bio::BPWrapper';

=pod

=head2 Common Subroutines

=head3 print_version $program_name

Show program name and version and exit

=cut


sub print_version($)
{
    my $program = shift;
    say "${program}, version $Bio::BPWrapper::VERSION";
    exit;
}

use Pod::Usage;

=head3 common_opts $opts

Handle some common options:

=over 4

=item C<--help>, C<-h>

Show usage help

=item C<--man>

Show a manual page via L

=back

=cut

sub common_opts($)
{
    my $opts = shift;
    pod2usage(1) if $opts->{"help"};
    pod2usage(-exitstatus => 0, -verbose => 2) if $opts->{"man"};
}


unless (caller) {
    print "Pssst... this is a module. Invoke via bioaln, bioseq, biopop, or biotree.\n";
}
1;