Commits

Shlomi Fish committed c6c5dbe

Rename.

Comments (0)

Files changed (33)

-File-FindLines/module/blib
-File-FindLines/module/_build
-File-FindLines/module/Build
-File-FindLines/module/META.json
-File-FindLines/module/META.yml
-File-FindLines/module/MYMETA.json
-File-FindLines/module/MYMETA.yml
+Stream-Extract/module/blib
+Stream-Extract/module/_build
+Stream-Extract/module/Build
+Stream-Extract/module/META.json
+Stream-Extract/module/META.yml
+Stream-Extract/module/MYMETA.json
+Stream-Extract/module/MYMETA.yml
 File-Find-Object-Rule/Build
 File-Find-Object-Rule/META.json
 File-Find-Object-Rule/META.yml

File-FindLines/module/Build.PL

-use 5.008;
-
-use strict;
-use warnings;
-
-use lib "./inc";
-
-use Test::Run::Builder;
-
-my $builder = Test::Run::Builder->new(
-    module_name         => 'Stream::Extract',
-    license             => 'mit',
-    dist_author         => q{Shlomi Fish <shlomif@cpan.org>},
-    dist_version_from   => 'lib/Stream/Extract.pm',
-    build_requires => {
-        'Test::More' => 0,
-    },
-    requires => {
-        'perl' => 5.006,
-    },
-    add_to_cleanup      => [ 'Stream-Extract-*' ],
-    create_makefile_pl => 'traditional',
-);
-
-$builder->create_build_script();

File-FindLines/module/Changes

-Revision history for Stream-Extract
-
-0.0.1   TBD 
-        First version, released on an unsuspecting world.
-

File-FindLines/module/MANIFEST

-Build.PL
-Changes
-inc/Test/Run/Builder.pm
-lib/Stream/Extract.pm
-lib/Stream/Extract/Result/Context.pm
-lib/Stream/Extract/Result.pm
-lib/Stream/Extract/Result/Match.pm
-MANIFEST			This list of files
-README
-t/00-load.t
-t/Find-FileLines.t
-t/manifest.t
-t/pod-coverage.t
-t/pod.t

File-FindLines/module/README

-Stream-Extract
-
-This is a module to filter a stream of records for those matching certain
-criteria (normally lines in files, similar to grep(1), but not restricted to
-it).
-
-INSTALLATION
-
-To install this module, run the following commands:
-
-	perl Build.PL
-	./Build
-	./Build test
-	./Build install
-
-SUPPORT AND DOCUMENTATION
-
-After installing, you can find documentation for this module with the
-perldoc command.
-
-    perldoc Stream::Extract
-
-You can also look for information at:
-
-    RT, CPAN's request tracker (report bugs here)
-        http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract
-
-    AnnoCPAN, Annotated CPAN documentation
-        http://annocpan.org/dist/Stream-Extract
-
-    CPAN Ratings
-        http://cpanratings.perl.org/d/Stream-Extract
-
-    Search CPAN
-        http://search.cpan.org/dist/Stream-Extract/
-
-
-LICENSE AND COPYRIGHT
-
-Copyright (C) 2012 Shlomi Fish
-
-This program is distributed under the MIT (X11) License:
-L<http://www.opensource.org/licenses/mit-license.php>
-
-Permission is hereby granted, free of charge, to any person
-obtaining a copy of this software and associated documentation
-files (the "Software"), to deal in the Software without
-restriction, including without limitation the rights to use,
-copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following
-conditions:
-
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-

File-FindLines/module/ignore.txt

-blib*
-Makefile
-Makefile.old
-Build
-Build.bat
-_build*
-pm_to_blib*
-*.tar.gz
-.lwpcookies
-cover_db
-pod2htm*.tmp
-Stream-Extract-*

File-FindLines/module/inc/Test/Run/Builder.pm

-package Test::Run::Builder;
-
-use strict;
-use warnings;
-
-use Module::Build;
-
-use vars qw(@ISA);
-
-@ISA = (qw(Module::Build));
-
-sub ACTION_runtest
-{
-    my ($self) = @_;
-    my $p = $self->{properties};
-
-    $self->depends_on('code');
-
-    local @INC = @INC;
-
-    # Make sure we test the module in blib/
-    unshift @INC, (File::Spec->catdir($p->{base_dir}, $self->blib, 'lib'),
-		 File::Spec->catdir($p->{base_dir}, $self->blib, 'arch'));
-
-    $self->do_test_run_tests;
-}
-
-sub ACTION_distruntest {
-  my ($self) = @_;
-
-  $self->depends_on('distdir');
-
-  my $start_dir = $self->cwd;
-  my $dist_dir = $self->dist_dir;
-  chdir $dist_dir or die "Cannot chdir to $dist_dir: $!";
-  # XXX could be different names for scripts
-
-  $self->run_perl_script('Build.PL') # XXX Should this be run w/ --nouse-rcfile
-      or die "Error executing 'Build.PL' in dist directory: $!";
-  $self->run_perl_script('Build')
-      or die "Error executing 'Build' in dist directory: $!";
-  $self->run_perl_script('Build', [], ['runtest'])
-      or die "Error executing 'Build test' in dist directory";
-  chdir $start_dir;
-}
-
-sub do_test_run_tests
-{
-    my $self = shift;
-
-    require Test::Run::CmdLine::Iface;
-
-    my $test_run =
-        Test::Run::CmdLine::Iface->new(
-            {
-                'test_files' => [glob("t/*.t")],
-            }   
-            # 'backend_params' => $self->_get_backend_params(),
-        );
-
-    return $test_run->run();
-}
-
-sub ACTION_tags
-{
-    return 
-        system(qw(
-            ctags -f tags --recurse --totals
-    		--exclude=blib/** --exclude=t/lib/**
-    		--exclude=.svn --exclude='*~'
-    		--languages=Perl --langmap=Perl:+.t
-    ));
-}
-
-1;
-

File-FindLines/module/lib/Stream/Extract.pm

-package Stream::Extract;
-
-use 5.006;
-
-use strict;
-use warnings;
-
-use Carp;
-
-use Class::XSAccessor
-    constructor => '_dont_use_me',
-    accessors => {
-        _iter_coderef => '_iter_coderef',
-        _filter_coderef => '_filter_coderef',
-    },
-    ;
-
-=head1 NAME
-
-Stream::Extract - find records out of a stream that match certain qualities.
-(similar to grep(1).)
-
-=head1 VERSION
-
-Version 0.01
-
-=cut
-
-our $VERSION = '0.01';
-
-
-=head1 SYNOPSIS
-
-    use Stream::Extract;
-
-    my ($re_s, $filename) = @ARGV;
-
-    my $re = qr/$re_s/;
-
-    open my $fh, '<', $filename
-        or die "Cannot open '$filename'"
-
-    my $finder = Stream::Extract->new(
-        {
-            input => { code => sub { return scalar <$fh>; }, },
-            filter => sub {
-                my ($self, $args) = @_;
-
-                my $record_obj = $args->{record};
-
-                return $record_obj->text_like($re);
-            }, 
-        }
-    );
-
-    while (my $match = $finder->next_text())
-    {
-        print "$match\n";
-    }
-
-    close($fh);
-
-=head1 SUBROUTINES/METHODS
-
-=head2 new
-
-Initializes a new object.
-
-=cut
-
-sub new
-{
-    my $class = shift;
-
-    my $self = {};
-    bless $self, $class;
-
-    $self->_init(@_);
-
-    return $self;
-}
-
-sub _init
-{
-    my ($self, $args) = @_;
-
-    $self->_iter_coderef($args->{input}->{code})
-        or Carp::confess "No input code ref specified.";
-
-    $self->_filter_coderef($args->{filter})
-        or Carp::confess "No filter code ref specified.";
-
-    return;
-}
-
-=head2 next
-
-Returns a new record as an object.
-
-=head2 next_text
-
-Returns a new record as text.
-
-=cut
-
-=head1 AUTHOR
-
-Shlomi Fish, L<http://www.shlomifish.org/>, C<< <shlomif at cpan.org> >> .
-
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
-automatically be notified of progress on your bug as I make changes.
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
-    perldoc Stream::Extract
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker (report bugs here)
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Stream-Extract>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Stream-Extract>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Stream-Extract/>
-
-=back
-
-
-=head1 ACKNOWLEDGEMENTS
-
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2012 Shlomi Fish.
-
-This program is distributed under the MIT (X11) License:
-L<http://www.opensource.org/licenses/mit-license.php>
-
-Permission is hereby granted, free of charge, to any person
-obtaining a copy of this software and associated documentation
-files (the "Software"), to deal in the Software without
-restriction, including without limitation the rights to use,
-copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following
-conditions:
-
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-
-=cut
-
-1; # End of Stream::Extract

File-FindLines/module/lib/Stream/Extract/Result.pm

-package Stream::Extract::Result;
-
-use 5.006;
-use strict;
-use warnings;
-
-=head1 NAME
-
-Stream::Extract::Result - An abstract Stream::Extract Result object.
-
-=head1 VERSION
-
-Version 0.01
-
-=cut
-
-our $VERSION = '0.01';
-
-
-=head1 SYNOPSIS
-
-Should not be used directly - API is subject to change.
-    use Stream::Extract::Result;
-
-    my $foo = Stream::Extract::Result->new();
-
-=head1 SUBROUTINES/METHODS
-
-=head1 AUTHOR
-
-Shlomi Fish, C<< <shlomif at cpan.org> >>
-
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
-automatically be notified of progress on your bug as I make changes.
-
-
-
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
-    perldoc Stream::Extract::Result
-
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker (report bugs here)
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Stream-Extract>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Stream-Extract>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Stream-Extract/>
-
-=back
-
-
-=head1 ACKNOWLEDGEMENTS
-
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2012 Shlomi Fish.
-
-This program is distributed under the MIT (X11) License:
-L<http://www.opensource.org/licenses/mit-license.php>
-
-Permission is hereby granted, free of charge, to any person
-obtaining a copy of this software and associated documentation
-files (the "Software"), to deal in the Software without
-restriction, including without limitation the rights to use,
-copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following
-conditions:
-
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-
-=cut
-
-1; # End of Stream::Extract::Result

File-FindLines/module/lib/Stream/Extract/Result/Context.pm

-package Stream::Extract::Result::Context;
-
-use 5.006;
-use strict;
-use warnings;
-
-=head1 NAME
-
-Stream::Extract::Result::Context - a context result object.
-
-=head1 VERSION
-
-Version 0.01
-
-=cut
-
-our $VERSION = '0.01';
-
-=head1 SYNOPSIS
-
-Should not be instantiated directly. 
-
-=head1 AUTHOR
-
-Shlomi Fish, C<< <shlomif at cpan.org> >>
-
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
-automatically be notified of progress on your bug as I make changes.
-
-
-
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
-    perldoc Stream::Extract::Result::Context
-
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker (report bugs here)
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Stream-Extract>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Stream-Extract>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Stream-Extract/>
-
-=back
-
-
-=head1 ACKNOWLEDGEMENTS
-
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2012 Shlomi Fish.
-
-This program is distributed under the MIT (X11) License:
-L<http://www.opensource.org/licenses/mit-license.php>
-
-Permission is hereby granted, free of charge, to any person
-obtaining a copy of this software and associated documentation
-files (the "Software"), to deal in the Software without
-restriction, including without limitation the rights to use,
-copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following
-conditions:
-
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-
-=cut
-
-1; # End of Stream::Extract::Result::Context

File-FindLines/module/lib/Stream/Extract/Result/Match.pm

-package Stream::Extract::Result::Match;
-
-use 5.006;
-use strict;
-use warnings;
-
-=head1 NAME
-
-Stream::Extract::Result::Match - a matching record result.
-
-=head1 VERSION
-
-Version 0.01
-
-=cut
-
-our $VERSION = '0.01';
-
-=head1 SYNOPSIS
-
-Should not be instantiated directly.
-
-    use Stream::Extract::Result::Match;
-
-    my $foo = Stream::Extract::Result::Match->new();
-    ...
-
-=head1 SUBROUTINES/METHODS
-
-=head1 AUTHOR
-
-Shlomi Fish, C<< <shlomif at cpan.org> >>
-
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
-automatically be notified of progress on your bug as I make changes.
-
-
-
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
-    perldoc Stream::Extract::Result::Match
-
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker (report bugs here)
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Stream-Extract>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Stream-Extract>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Stream-Extract/>
-
-=back
-
-
-=head1 ACKNOWLEDGEMENTS
-
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2012 Shlomi Fish.
-
-This program is distributed under the MIT (X11) License:
-L<http://www.opensource.org/licenses/mit-license.php>
-
-Permission is hereby granted, free of charge, to any person
-obtaining a copy of this software and associated documentation
-files (the "Software"), to deal in the Software without
-restriction, including without limitation the rights to use,
-copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following
-conditions:
-
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-
-=cut
-
-1; # End of Stream::Extract::Result::Match

File-FindLines/module/t/00-load.t

-#!perl -T
-
-use Test::More tests => 4;
-
-BEGIN {
-    use_ok( 'Stream::Extract' ) || print "Bail out!\n";
-    use_ok( 'Stream::Extract::Result' ) || print "Bail out!\n";
-    use_ok( 'Stream::Extract::Result::Context' ) || print "Bail out!\n";
-    use_ok( 'Stream::Extract::Result::Match' ) || print "Bail out!\n";
-}
-
-diag( "Testing Stream::Extract $Stream::Extract::VERSION, Perl $], $^X" );

File-FindLines/module/t/Find-FileLines.t

-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 1;
-
-use Stream::Extract;
-
-{
-    my @lines =
-    (
-        "Ini\n",
-        "Mini\n",
-        "Foobar\n",
-        "Moo\n",
-    );
-
-    my $finder = Stream::Extract->new(
-        {
-            input => { code => sub { return shift(@lines); } },
-            filter => sub {
-                my ($self, $args) = @_;
-                
-                my $record_obj = $args->{record};
-
-                return $record_obj->text_like(qr/foob.r/);
-            },
-        }
-    );
-
-    # TEST
-    ok ($finder, "Finder was initialized.");
-}

File-FindLines/module/t/boilerplate.t

-#!perl -T
-
-use 5.006;
-use strict;
-use warnings;
-use Test::More tests => 6;
-
-sub not_in_file_ok {
-    my ($filename, %regex) = @_;
-    open( my $fh, '<', $filename )
-        or die "couldn't open $filename for reading: $!";
-
-    my %violated;
-
-    while (my $line = <$fh>) {
-        while (my ($desc, $regex) = each %regex) {
-            if ($line =~ $regex) {
-                push @{$violated{$desc}||=[]}, $.;
-            }
-        }
-    }
-
-    if (%violated) {
-        fail("$filename contains boilerplate text");
-        diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
-    } else {
-        pass("$filename contains no boilerplate text");
-    }
-}
-
-sub module_boilerplate_ok {
-    my ($module) = @_;
-    not_in_file_ok($module =>
-        'the great new $MODULENAME'   => qr/ - The great new /,
-        'boilerplate description'     => qr/Quick summary of what the module/,
-        'stub function definition'    => qr/function[12]/,
-    );
-}
-
-TODO: {
-  # local $TODO = "Need to replace the boilerplate text";
-
-  not_in_file_ok(README =>
-    "The README is used..."       => qr/The README is used/,
-    "'version information here'"  => qr/to provide version information/,
-  );
-
-  not_in_file_ok(Changes =>
-    "placeholder date/time"       => qr(Date/time)
-  );
-
-  module_boilerplate_ok('lib/Stream/Extract.pm');
-  module_boilerplate_ok('lib/Stream/Extract/Result.pm');
-  module_boilerplate_ok('lib/Stream/Extract/Result/Context.pm');
-  module_boilerplate_ok('lib/Stream/Extract/Result/Match.pm');
-
-
-}
-

File-FindLines/module/t/manifest.t

-#!perl -T
-
-use strict;
-use warnings;
-use Test::More;
-
-unless ( $ENV{RELEASE_TESTING} ) {
-    plan( skip_all => "Author tests not required for installation" );
-}
-
-eval "use Test::CheckManifest 0.9";
-plan skip_all => "Test::CheckManifest 0.9 required" if $@;
-ok_manifest();

File-FindLines/module/t/pod-coverage.t

-use strict;
-use warnings;
-use Test::More;
-
-# Ensure a recent version of Test::Pod::Coverage
-my $min_tpc = 1.08;
-eval "use Test::Pod::Coverage $min_tpc";
-plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
-    if $@;
-
-# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
-# but older versions don't recognize some common documentation styles
-my $min_pc = 0.18;
-eval "use Pod::Coverage $min_pc";
-plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
-    if $@;
-
-all_pod_coverage_ok();

File-FindLines/module/t/pod.t

-#!perl -T
-
-use strict;
-use warnings;
-use Test::More;
-
-# Ensure a recent version of Test::Pod
-my $min_tp = 1.22;
-eval "use Test::Pod $min_tp";
-plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
-
-all_pod_files_ok();

Stream-Extract/module/Build.PL

+use 5.008;
+
+use strict;
+use warnings;
+
+use lib "./inc";
+
+use Test::Run::Builder;
+
+my $builder = Test::Run::Builder->new(
+    module_name         => 'Stream::Extract',
+    license             => 'mit',
+    dist_author         => q{Shlomi Fish <shlomif@cpan.org>},
+    dist_version_from   => 'lib/Stream/Extract.pm',
+    build_requires => {
+        'Test::More' => 0,
+    },
+    requires => {
+        'perl' => 5.006,
+    },
+    add_to_cleanup      => [ 'Stream-Extract-*' ],
+    create_makefile_pl => 'traditional',
+);
+
+$builder->create_build_script();

Stream-Extract/module/Changes

+Revision history for Stream-Extract
+
+0.0.1   TBD 
+        First version, released on an unsuspecting world.
+

Stream-Extract/module/MANIFEST

+Build.PL
+Changes
+inc/Test/Run/Builder.pm
+lib/Stream/Extract.pm
+lib/Stream/Extract/Result/Context.pm
+lib/Stream/Extract/Result.pm
+lib/Stream/Extract/Result/Match.pm
+MANIFEST			This list of files
+README
+t/00-load.t
+t/Find-FileLines.t
+t/manifest.t
+t/pod-coverage.t
+t/pod.t

Stream-Extract/module/README

+Stream-Extract
+
+This is a module to filter a stream of records for those matching certain
+criteria (normally lines in files, similar to grep(1), but not restricted to
+it).
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+	perl Build.PL
+	./Build
+	./Build test
+	./Build install
+
+SUPPORT AND DOCUMENTATION
+
+After installing, you can find documentation for this module with the
+perldoc command.
+
+    perldoc Stream::Extract
+
+You can also look for information at:
+
+    RT, CPAN's request tracker (report bugs here)
+        http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract
+
+    AnnoCPAN, Annotated CPAN documentation
+        http://annocpan.org/dist/Stream-Extract
+
+    CPAN Ratings
+        http://cpanratings.perl.org/d/Stream-Extract
+
+    Search CPAN
+        http://search.cpan.org/dist/Stream-Extract/
+
+
+LICENSE AND COPYRIGHT
+
+Copyright (C) 2012 Shlomi Fish
+
+This program is distributed under the MIT (X11) License:
+L<http://www.opensource.org/licenses/mit-license.php>
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+

Stream-Extract/module/ignore.txt

+blib*
+Makefile
+Makefile.old
+Build
+Build.bat
+_build*
+pm_to_blib*
+*.tar.gz
+.lwpcookies
+cover_db
+pod2htm*.tmp
+Stream-Extract-*

Stream-Extract/module/inc/Test/Run/Builder.pm

+package Test::Run::Builder;
+
+use strict;
+use warnings;
+
+use Module::Build;
+
+use vars qw(@ISA);
+
+@ISA = (qw(Module::Build));
+
+sub ACTION_runtest
+{
+    my ($self) = @_;
+    my $p = $self->{properties};
+
+    $self->depends_on('code');
+
+    local @INC = @INC;
+
+    # Make sure we test the module in blib/
+    unshift @INC, (File::Spec->catdir($p->{base_dir}, $self->blib, 'lib'),
+		 File::Spec->catdir($p->{base_dir}, $self->blib, 'arch'));
+
+    $self->do_test_run_tests;
+}
+
+sub ACTION_distruntest {
+  my ($self) = @_;
+
+  $self->depends_on('distdir');
+
+  my $start_dir = $self->cwd;
+  my $dist_dir = $self->dist_dir;
+  chdir $dist_dir or die "Cannot chdir to $dist_dir: $!";
+  # XXX could be different names for scripts
+
+  $self->run_perl_script('Build.PL') # XXX Should this be run w/ --nouse-rcfile
+      or die "Error executing 'Build.PL' in dist directory: $!";
+  $self->run_perl_script('Build')
+      or die "Error executing 'Build' in dist directory: $!";
+  $self->run_perl_script('Build', [], ['runtest'])
+      or die "Error executing 'Build test' in dist directory";
+  chdir $start_dir;
+}
+
+sub do_test_run_tests
+{
+    my $self = shift;
+
+    require Test::Run::CmdLine::Iface;
+
+    my $test_run =
+        Test::Run::CmdLine::Iface->new(
+            {
+                'test_files' => [glob("t/*.t")],
+            }   
+            # 'backend_params' => $self->_get_backend_params(),
+        );
+
+    return $test_run->run();
+}
+
+sub ACTION_tags
+{
+    return 
+        system(qw(
+            ctags -f tags --recurse --totals
+    		--exclude=blib/** --exclude=t/lib/**
+    		--exclude=.svn --exclude='*~'
+    		--languages=Perl --langmap=Perl:+.t
+    ));
+}
+
+1;
+

Stream-Extract/module/lib/Stream/Extract.pm

+package Stream::Extract;
+
+use 5.006;
+
+use strict;
+use warnings;
+
+use Carp;
+
+use Class::XSAccessor
+    constructor => '_dont_use_me',
+    accessors => {
+        _iter_coderef => '_iter_coderef',
+        _filter_coderef => '_filter_coderef',
+    },
+    ;
+
+=head1 NAME
+
+Stream::Extract - find records out of a stream that match certain qualities.
+(similar to grep(1).)
+
+=head1 VERSION
+
+Version 0.01
+
+=cut
+
+our $VERSION = '0.01';
+
+
+=head1 SYNOPSIS
+
+    use Stream::Extract;
+
+    my ($re_s, $filename) = @ARGV;
+
+    my $re = qr/$re_s/;
+
+    open my $fh, '<', $filename
+        or die "Cannot open '$filename'"
+
+    my $finder = Stream::Extract->new(
+        {
+            input => { code => sub { return scalar <$fh>; }, },
+            filter => sub {
+                my ($self, $args) = @_;
+
+                my $record_obj = $args->{record};
+
+                return $record_obj->text_like($re);
+            }, 
+        }
+    );
+
+    while (my $match = $finder->next_text())
+    {
+        print "$match\n";
+    }
+
+    close($fh);
+
+=head1 SUBROUTINES/METHODS
+
+=head2 new
+
+Initializes a new object.
+
+=cut
+
+sub new
+{
+    my $class = shift;
+
+    my $self = {};
+    bless $self, $class;
+
+    $self->_init(@_);
+
+    return $self;
+}
+
+sub _init
+{
+    my ($self, $args) = @_;
+
+    $self->_iter_coderef($args->{input}->{code})
+        or Carp::confess "No input code ref specified.";
+
+    $self->_filter_coderef($args->{filter})
+        or Carp::confess "No filter code ref specified.";
+
+    return;
+}
+
+=head2 next
+
+Returns a new record as an object.
+
+=head2 next_text
+
+Returns a new record as text.
+
+=cut
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>, C<< <shlomif at cpan.org> >> .
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
+automatically be notified of progress on your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Stream::Extract
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker (report bugs here)
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Stream-Extract>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Stream-Extract>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Stream-Extract/>
+
+=back
+
+
+=head1 ACKNOWLEDGEMENTS
+
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2012 Shlomi Fish.
+
+This program is distributed under the MIT (X11) License:
+L<http://www.opensource.org/licenses/mit-license.php>
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+
+=cut
+
+1; # End of Stream::Extract

Stream-Extract/module/lib/Stream/Extract/Result.pm

+package Stream::Extract::Result;
+
+use 5.006;
+use strict;
+use warnings;
+
+=head1 NAME
+
+Stream::Extract::Result - An abstract Stream::Extract Result object.
+
+=head1 VERSION
+
+Version 0.01
+
+=cut
+
+our $VERSION = '0.01';
+
+
+=head1 SYNOPSIS
+
+Should not be used directly - API is subject to change.
+    use Stream::Extract::Result;
+
+    my $foo = Stream::Extract::Result->new();
+
+=head1 SUBROUTINES/METHODS
+
+=head1 AUTHOR
+
+Shlomi Fish, C<< <shlomif at cpan.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
+automatically be notified of progress on your bug as I make changes.
+
+
+
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Stream::Extract::Result
+
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker (report bugs here)
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Stream-Extract>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Stream-Extract>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Stream-Extract/>
+
+=back
+
+
+=head1 ACKNOWLEDGEMENTS
+
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2012 Shlomi Fish.
+
+This program is distributed under the MIT (X11) License:
+L<http://www.opensource.org/licenses/mit-license.php>
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+
+=cut
+
+1; # End of Stream::Extract::Result

Stream-Extract/module/lib/Stream/Extract/Result/Context.pm

+package Stream::Extract::Result::Context;
+
+use 5.006;
+use strict;
+use warnings;
+
+=head1 NAME
+
+Stream::Extract::Result::Context - a context result object.
+
+=head1 VERSION
+
+Version 0.01
+
+=cut
+
+our $VERSION = '0.01';
+
+=head1 SYNOPSIS
+
+Should not be instantiated directly. 
+
+=head1 AUTHOR
+
+Shlomi Fish, C<< <shlomif at cpan.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
+automatically be notified of progress on your bug as I make changes.
+
+
+
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Stream::Extract::Result::Context
+
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker (report bugs here)
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Stream-Extract>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Stream-Extract>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Stream-Extract/>
+
+=back
+
+
+=head1 ACKNOWLEDGEMENTS
+
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2012 Shlomi Fish.
+
+This program is distributed under the MIT (X11) License:
+L<http://www.opensource.org/licenses/mit-license.php>
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+
+=cut
+
+1; # End of Stream::Extract::Result::Context

Stream-Extract/module/lib/Stream/Extract/Result/Match.pm

+package Stream::Extract::Result::Match;
+
+use 5.006;
+use strict;
+use warnings;
+
+=head1 NAME
+
+Stream::Extract::Result::Match - a matching record result.
+
+=head1 VERSION
+
+Version 0.01
+
+=cut
+
+our $VERSION = '0.01';
+
+=head1 SYNOPSIS
+
+Should not be instantiated directly.
+
+    use Stream::Extract::Result::Match;
+
+    my $foo = Stream::Extract::Result::Match->new();
+    ...
+
+=head1 SUBROUTINES/METHODS
+
+=head1 AUTHOR
+
+Shlomi Fish, C<< <shlomif at cpan.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-stream-extract at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stream-Extract>.  I will be notified, and then you'll
+automatically be notified of progress on your bug as I make changes.
+
+
+
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Stream::Extract::Result::Match
+
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker (report bugs here)
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stream-Extract>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Stream-Extract>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Stream-Extract>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Stream-Extract/>
+
+=back
+
+
+=head1 ACKNOWLEDGEMENTS
+
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2012 Shlomi Fish.
+
+This program is distributed under the MIT (X11) License:
+L<http://www.opensource.org/licenses/mit-license.php>
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+
+=cut
+
+1; # End of Stream::Extract::Result::Match

Stream-Extract/module/t/00-load.t

+#!perl -T
+
+use Test::More tests => 4;
+
+BEGIN {
+    use_ok( 'Stream::Extract' ) || print "Bail out!\n";
+    use_ok( 'Stream::Extract::Result' ) || print "Bail out!\n";
+    use_ok( 'Stream::Extract::Result::Context' ) || print "Bail out!\n";
+    use_ok( 'Stream::Extract::Result::Match' ) || print "Bail out!\n";
+}
+
+diag( "Testing Stream::Extract $Stream::Extract::VERSION, Perl $], $^X" );

Stream-Extract/module/t/Find-FileLines.t

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use Stream::Extract;
+
+{
+    my @lines =
+    (
+        "Ini\n",
+        "Mini\n",
+        "Foobar\n",
+        "Moo\n",
+    );
+
+    my $finder = Stream::Extract->new(
+        {
+            input => { code => sub { return shift(@lines); } },
+            filter => sub {
+                my ($self, $args) = @_;
+                
+                my $record_obj = $args->{record};
+
+                return $record_obj->text_like(qr/foob.r/);
+            },
+        }
+    );
+
+    # TEST
+    ok ($finder, "Finder was initialized.");
+}

Stream-Extract/module/t/boilerplate.t

+#!perl -T
+
+use 5.006;
+use strict;
+use warnings;
+use Test::More tests => 6;
+
+sub not_in_file_ok {
+    my ($filename, %regex) = @_;
+    open( my $fh, '<', $filename )
+        or die "couldn't open $filename for reading: $!";
+
+    my %violated;
+
+    while (my $line = <$fh>) {
+        while (my ($desc, $regex) = each %regex) {
+            if ($line =~ $regex) {
+                push @{$violated{$desc}||=[]}, $.;
+            }
+        }
+    }
+
+    if (%violated) {
+        fail("$filename contains boilerplate text");
+        diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
+    } else {
+        pass("$filename contains no boilerplate text");
+    }
+}
+
+sub module_boilerplate_ok {
+    my ($module) = @_;
+    not_in_file_ok($module =>
+        'the great new $MODULENAME'   => qr/ - The great new /,
+        'boilerplate description'     => qr/Quick summary of what the module/,
+        'stub function definition'    => qr/function[12]/,
+    );
+}
+
+TODO: {
+  # local $TODO = "Need to replace the boilerplate text";
+
+  not_in_file_ok(README =>
+    "The README is used..."       => qr/The README is used/,
+    "'version information here'"  => qr/to provide version information/,
+  );
+
+  not_in_file_ok(Changes =>
+    "placeholder date/time"       => qr(Date/time)
+  );
+
+  module_boilerplate_ok('lib/Stream/Extract.pm');
+  module_boilerplate_ok('lib/Stream/Extract/Result.pm');
+  module_boilerplate_ok('lib/Stream/Extract/Result/Context.pm');
+  module_boilerplate_ok('lib/Stream/Extract/Result/Match.pm');
+
+
+}
+

Stream-Extract/module/t/manifest.t

+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+unless ( $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
+eval "use Test::CheckManifest 0.9";
+plan skip_all => "Test::CheckManifest 0.9 required" if $@;
+ok_manifest();

Stream-Extract/module/t/pod-coverage.t

+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod::Coverage
+my $min_tpc = 1.08;
+eval "use Test::Pod::Coverage $min_tpc";
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
+    if $@;
+
+# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
+# but older versions don't recognize some common documentation styles
+my $min_pc = 0.18;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+    if $@;
+
+all_pod_coverage_ok();

Stream-Extract/module/t/pod.t

+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.