/usr/local/CPAN/Pangloss/Pangloss/Search/Filter/Proofreader.pm

• package Pangloss::Search::Filter::Proofreader
  • applies_to
• EOF

package Pangloss::Search::Filter::Proofreader;

use base qw( Pangloss::Search::Filter::Base );

our $VERSION  = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.4 $ '))[2];

sub applies_to {
    my $self    = shift;
    my $proofer = shift->status->creator;
    return grep { $proofer eq $_ } keys %{ $self->item_keys };
}

1;