| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Git::Validate::Error::LongLine; |
|
2
|
|
|
|
|
|
|
$Git::Validate::Error::LongLine::VERSION = '0.001001'; |
|
3
|
1
|
|
|
1
|
|
569
|
use Moo; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
6
|
|
|
4
|
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
245
|
use overload q("") => '_stringify'; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
7
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
with 'Git::Validate::HasLine'; |
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
has '+line_number' => ( default => 1 ); |
|
10
|
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
has max_length => ( |
|
12
|
|
|
|
|
|
|
is => 'ro', |
|
13
|
|
|
|
|
|
|
default => 72, |
|
14
|
|
|
|
|
|
|
); |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
sub _stringify { |
|
17
|
4
|
|
|
4
|
|
1875
|
sprintf 'line %d is too long, max of %d chars, instead it is %d', |
|
18
|
|
|
|
|
|
|
$_[0]->line_number, $_[0]->max_length, length $_[0]->line |
|
19
|
|
|
|
|
|
|
} |
|
20
|
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
1; |