Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Collection.pm	1.31 KB	-rw-r--r--
Default.pm	421 B	-rw-r--r--
Extension.pm	983 B	-rw-r--r--
ExtensionGroup.pm	906 B	-rw-r--r--
FirstLineMatch.pm	1 KB	-rw-r--r--
Inverse.pm	617 B	-rw-r--r--
Is.pm	819 B	-rw-r--r--
IsGroup.pm	1.06 KB	-rw-r--r--
IsPath.pm	702 B	-rw-r--r--
IsPathGroup.pm	769 B	-rw-r--r--
Match.pm	873 B	-rw-r--r--
MatchGroup.pm	857 B	-rw-r--r--

Code Editor : FirstLineMatch.pm

package App::Ack::Filter::FirstLineMatch;

=head1 NAME

App::Ack::Filter::FirstLineMatch

=head1 DESCRIPTION

The class that implements filtering files by their first line.

=cut

use strict;
use warnings;
use parent 'App::Ack::Filter';

sub new {
    my ( $class, $re ) = @_;

$re =~ s{^/|/$}{}g; # XXX validate?
    $re = qr{$re}i;

return bless {
        regex => $re,
    }, $class;
}

# This test reads the first 250 characters of a file, then just uses the
# first line found in that. This prevents reading something  like an entire
# .min.js file (which might be only one "line" long) into memory.

sub filter {
    my ( $self, $file ) = @_;

return $file->firstliney =~ /$self->{regex}/;
}

sub inspect {
    my ( $self ) = @_;

return ref($self) . ' - ' . $self->{regex};
}

sub to_string {
    my ( $self ) = @_;

(my $re = $self->{regex}) =~ s{$[^:]*:(.*)$$}{$1};

return "First line matches /$re/";
}

BEGIN {
    App::Ack::Filter->register_filter(firstlinematch => __PACKAGE__);
}

${this.title}

Code Editor : FirstLineMatch.pm