The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MGRIMES / Perl-Tidy-Sweetened-0.21 / lib / Perl / Tidy / Sweetened / Pluggable.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
—
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

              
package Perl::Tidy::Sweetened::Pluggable;
# ABSTRACT: Simple object to facilitate a pluggable filter architecture
use strict;
use warnings;
our $VERSION = '0.21';
sub new {
    my ( $class, %args ) = @_;
    return bless {%args}, $class;
}
sub filters { return ( $_[0]->{filters} ||= [] ) }
sub add_filter {
    my $self = shift;
    push @{ $self->filters }, @_;
}
sub prefilter {
    my ( $self, $code ) = @_;
    for my $filter ( @{ $self->filters } ) {
        $code = $filter->prefilter($code);
    }
    # warn "After prefilter, before tidy\n";
    # warn $code;
    return $code;
}
sub postfilter {
    my ( $self, $code ) = @_;
    # warn "After tidy, before postfilter\n";
    # warn $code;
    for my $filter ( @{ $self->filters } ) {
        $code = $filter->postfilter($code);
    }
    return $code;
}
1;
__END__
=pod
=head1 NAME
Perl::Tidy::Sweetened::Pluggable - Simple object to facilitate a pluggable filter architecture
=head1 VERSION
version 0.21
=head1 SYNOPSIS
    our $plugins = Perl::Tidy::Sweetened::Pluggable->new();
    $plugins->add_filter(
        Perl::Tidy::Sweetened::Keyword::SubSignature->new(
            keyword => 'method',
            marker  => 'METHOD',
        ) );
    $plugins->prefilter( $code );
    $plugins->postfilter( $code );
=head1 DESCRIPTION
Builds a pluggable, chainable list of filters.
=head1 THANKS
See L<Perl::Tidy::Sweetened>
=head1 BUGS
Please report any bugs or suggestions at
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Perl-Tidy-Sweetened>
=head1 AUTHOR
Mark Grimes, E<lt>mgrimes@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Mark Grimes, E<lt>mgrimes@cpan.orgE<gt>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut