File Coverage

blib/lib/Net/LCDproc/Widget/Icon.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Net::LCDproc::Widget::Icon;
2             $Net::LCDproc::Widget::Icon::VERSION = '0.104';
3             #ABSTRACT: 'icon' widget
4              
5 1     1   14 use v5.10.2;
  1         2  
  1         46  
6 1     1   6 use Types::Standard qw/Enum Int/;
  1         1  
  1         13  
7 1     1   585 use Moo;
  1         2  
  1         6  
8 1     1   272 use namespace::clean;
  1         2  
  1         8  
9              
10             extends 'Net::LCDproc::Widget';
11             with 'Net::LCDproc::Role::Widget';
12              
13             has iconname => (
14             is => 'rw',
15             isa => Enum([
16             qw/
17             BLOCK_FILLED
18             HEART_OPEN
19             HEART_FILLED
20             ARROW_UP
21             ARROW_DOWN
22             ARROW_LEFT
23             ARROW_RIGHT
24             CHECKBOX_OFF
25             CHECKBOX_ON
26             CHECKBOX_GRAY
27             SELECTOR_AT_LEFT
28             SELECTOR_AT_RIGHT
29             ELLIPSIS
30             STOP
31             PAUSE
32             PLAY
33             PLAYR
34             FF
35             FR
36             NEXT
37             PREV
38             REC
39             NULL
40             /
41             ]
42             ),
43             required => 1,
44             trigger => \&_set_attr,
45             );
46              
47             has ['x', 'y'] => (
48             is => 'rw',
49             isa => Int,
50             required => 1,
51             trigger => \&_set_attr,
52             );
53              
54             has '+_set_cmd' => ( default => sub { [qw/ x y iconname /] } );
55              
56             1;
57              
58             __END__