view release on metacpan or  search on metacpan

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

# If you want your file to be typeset using those options, run
#     pdoc file.pandoc
#
# If you want standard processing of that file, run pandoc as usual:
#     pandoc file.pandoc

# Daniel Bruder <daniel.bruder[@]gmail.com>
# WTFPL License <http://sam.zoy.org/wtfpl/>

sub main {
    $_    = do{ local(@ARGV => $/) = $ARGV[0]; <> };            # Slurp the file
    @opts = join " "        => m/<!--\+\s*(.*?)\s*\+-->/g;      # Get <!--+X+-->
    @exec = join " && \\\n" => m/<!--&\s*(.*?)\s*&-->/g;        # Get <!--&X&-->
    @cmd  = join " && \\\n" => "pandoc @opts @ARGV", @exec;     # Construct cmd
    exec @cmd                                                   # exec cmd
}


1;
__END__
=pod

pdoc-0.900/bin/pdoc  view on Meta::CPAN

#
# If you want your file to be typeset using those options, run
#     pdoc file.pandoc
#
# If you want standard processing of that file, run pandoc as usual:
#     pandoc file.pandoc

# Daniel Bruder <daniel.bruder[@]gmail.com>
# WTFPL License <http://sam.zoy.org/wtfpl/>

$_    = do{ local(@ARGV => $/) = $ARGV[0]; <> };            # Slurp the file
@opts = join " "        => m/<!--\+\s*(.*?)\s*\+-->/g;      # Get <!--+X+-->
@exec = join " && \\\n" => m/<!--&\s*(.*?)\s*&-->/g;        # Get <!--&X&-->
@cmd  = join " && \\\n" => "pandoc @opts @ARGV", @exec;     # Construct cmd
exec @cmd                                                   # exec cmd



=pod

=encoding utf-8