view release on metacpan or  search on metacpan

lib/App/Pinpp.pm  view on Meta::CPAN

# ABSTRACT: pinpp - The Pinpoint Pre-processor

our $VERSION = '0.03'; # VERSION: Generated by DZP::OurPkg:Version



sub run {
    my $class = shift;

    # Load our arguments into ARGV, so we can use getopts.
    local @ARGV = @_;

    my %opts = (
        o => '',          # Output to PDF
        I => 'topics'     # Includes directory
    );

    getopts("o:i:",\%opts);

    my ($file) = @ARGV;