37 lines
784 B
Perl
37 lines
784 B
Perl
package Polyze::HCount;
|
|
use Moose;
|
|
use Polyze::RCount;
|
|
with 'Polyze::Handler';
|
|
|
|
has rcount => (
|
|
is => 'ro',
|
|
isa => 'Polyze::RCount',
|
|
required => 0,
|
|
lazy => 1,
|
|
builder => '_build_rcount',
|
|
handles => [qw( increment_count )],
|
|
);
|
|
|
|
sub _build_rcount {
|
|
my ($self) = @_;
|
|
# A reporter object requires a line. But since we don't care about
|
|
# the line in this case, give it a dummy.
|
|
my $rc = Polyze::RCount->new(
|
|
polyze => $self->polyze,
|
|
line => Polyze::Line->new(
|
|
text => 'Dummy', filename => 'Dummy', linenumber => 0,
|
|
),
|
|
);
|
|
$self->polyze->add_reporter($rc);
|
|
return $rc;
|
|
}
|
|
|
|
sub scan_line {
|
|
my ($self, $line) = @_;
|
|
$self->increment_count;
|
|
return $Polyze::CONTINUE_LINE;
|
|
}
|
|
|
|
no Moose;
|
|
__PACKAGE__->meta->make_immutable;
|