line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Dancer::Plugin::Documentation::Section; |
2
|
|
|
|
|
|
|
|
3
|
3
|
|
|
3
|
|
13
|
use strict; |
|
3
|
|
|
|
|
3
|
|
|
3
|
|
|
|
|
99
|
|
4
|
3
|
|
|
3
|
|
12
|
use warnings; |
|
3
|
|
|
|
|
3
|
|
|
3
|
|
|
|
|
67
|
|
5
|
|
|
|
|
|
|
|
6
|
3
|
|
|
3
|
|
9
|
use Moo; |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
13
|
|
7
|
3
|
|
|
3
|
|
749
|
use MooX::Types::MooseLike::Base qw{Str}; |
|
3
|
|
|
|
|
4
|
|
|
3
|
|
|
|
|
159
|
|
8
|
3
|
|
|
3
|
|
19
|
use namespace::clean; |
|
3
|
|
|
|
|
3
|
|
|
3
|
|
|
|
|
20
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
extends 'Dancer::Plugin::Documentation::Base'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
has section => ( |
13
|
|
|
|
|
|
|
is => 'ro', |
14
|
|
|
|
|
|
|
isa => sub { (Str)->($_[0]); die "section must not be the empty string" if $_[0] eq '' }, |
15
|
|
|
|
|
|
|
coerce => sub { defined $_[0] ? lc $_[0] : undef }, |
16
|
|
|
|
|
|
|
default => undef, |
17
|
|
|
|
|
|
|
); |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |