1package Perl::Metrics::Lite::Analysis::Sub::Plugin::Lines; 2use strict; 3use warnings; 4 5sub init { 6} 7 8sub measure { 9 my ( $self, $context, $sub ) = @_; 10 11 my $sub_length 12 = Perl::Metrics::Lite::Analysis::Util::get_node_length($sub); 13 return $sub_length; 14} 15 161; 17 18__END__ 19