File Coverage

blib/lib/Net/LCDproc/Widget/HBar.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::HBar;
2             $Net::LCDproc::Widget::HBar::VERSION = '0.104';
3             #ABSTRACT: draw a horizontal bar
4              
5 1     1   13 use v5.10.2;
  1         3  
  1         47  
6 1     1   5 use Types::Standard qw/Int/;
  1         2  
  1         9  
7 1     1   524 use Moo;
  1         2  
  1         7  
8 1     1   314 use namespace::clean;
  1         1  
  1         9  
9              
10             extends 'Net::LCDproc::Widget';
11             with 'Net::LCDproc::Role::Widget';
12              
13             has ['x', 'y', 'length'] => (
14             is => 'rw',
15             isa => Int,
16             required => 1,
17             trigger => \&_set_attr,
18             );
19              
20             has '+_set_cmd' => ( default => sub { [qw/ x y length /] } );
21              
22             1;
23              
24             __END__