File Coverage

examples/content_processor_plugin.pl

Criterion	Covered	Total	%
statement	28	29	96.5
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	35	36	97.2

use warnings;
use 5.020;
use experimental qw( signatures );
use Data::Section::Pluggable;

package Data::Section::Pluggable::Plugin::MyPlugin {
    use Role::Tiny::With;
    use Class::Tiny qw( extensions );
    with 'Data::Section::Pluggable::Role::ContentProcessorPlugin';

    sub process_content ($self, $dsp, $content) {
        $content =~ s/\s*\z//;  # trim trailing whitespace
        return "[$content]";
    }
}

my $dsp = Data::Section::Pluggable->new
                                  ->add_plugin('my_plugin', extensions => ['txt']);

# prints '[Welcome to Perl]'
say $dsp->get_data_section('hello.txt');

__DATA__