File Coverage

blib/lib/Net/LCDproc/Widget/VBar.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::VBar;
2             $Net::LCDproc::Widget::VBar::VERSION = '0.104';
3             #ABSTRACT: draw a vertical bar
4              
5 1     1   18 use v5.10.2;
  1         3  
  1         70  
6 1     1   10 use Types::Standard qw/Int/;
  1         2  
  1         12  
7 1     1   482 use Moo;
  1         3  
  1         5  
8 1     1   333 use namespace::clean;
  1         2  
  1         8  
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__