Pod::Abstract::Filter::cut - paf command to remove non-processed (cut)

Pod-Abstract documentation Contained in the Pod-Abstract distribution.

Index

Code Index:

NAME

Top

Pod::Abstract::Filter::cut - paf command to remove non-processed (cut) portions of a Pod document.

AUTHOR

Top

Ben Lilburne <bnej@mac.com>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2009 Ben Lilburne

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Pod-Abstract documentation Contained in the Pod-Abstract distribution. 
package Pod::Abstract::Filter::cut;
use strict;
use warnings;

use base qw(Pod::Abstract::Filter);

our $VERSION = '0.20';


sub filter {
    my $self = shift;
    my $pa = shift;
    
    my @cut = $pa->select("//#cut");
    foreach my $cut (@cut) {
        $cut->detach;
    }
    
    return $pa;
}


1;