1#!/usr/bin/perl -w 2 3# Copyright 2014 Kevin Ryde 4 5# This file is part of Perl-Critic-Pulp. 6# 7# Perl-Critic-Pulp is free software; you can redistribute it and/or 8# modify it under the terms of the GNU General Public License as published 9# by the Free Software Foundation; either version 3, or (at your option) any 10# later version. 11# 12# Perl-Critic-Pulp is distributed in the hope that it will be useful, 13# but WITHOUT ANY WARRANTY; without even the implied warranty of 14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General 15# Public License for more details. 16# 17# You should have received a copy of the GNU General Public License along 18# with Perl-Critic-Pulp. If not, see <http://www.gnu.org/licenses/>. 19 20 21use 5.005; 22use strict; 23use warnings; 24use FindBin; 25 26# uncomment this to run the ### lines 27use Smart::Comments; 28 29my $parser = MyParser->new; 30$parser->parse_from_file ("$FindBin::Bin/$FindBin::Script"); 31exit 0; 32 33package MyParser; 34use strict; 35use warnings; 36use base 'Perl::Critic::Pulp::PodParser'; 37 38sub command { 39 my ($self, $command, $text, $linenum, $paraobj) = @_; 40 ### command() ... 41 ### $text 42 return ''; 43} 44sub verbatim { 45 my ($self, $text, $linenum, $paraobj) = @_; 46 ### verbatim() ... 47 ### $text 48 return ''; 49} 50sub textblock { 51 my ($self, $text, $linenum, $paraobj) = @_; 52 ### textblock() ... 53 ### $text 54 return ''; 55} 56 57exit 0; 58 59__END__ 60 61=pod 62 63=begin comment 64 65This is a comment. 66 67=end comment 68 69This is pod text 70 71=cut 72