File Coverage

blib/lib/Net/LCDproc/Widget/Scroller.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

package Net::LCDproc::Widget::Scroller;
$Net::LCDproc::Widget::Scroller::VERSION = '0.104';
#ABSTRACT: 'scroller' widget

use v5.10.2;
use Types::Standard qw/Enum Int Str/;
use Moo;
use namespace::clean;

extends 'Net::LCDproc::Widget';
with 'Net::LCDproc::Role::Widget';

has text => (
    is       => 'rw',
    isa      => Str,
    required => 1,
    trigger  => \&_set_attr,
);

has direction => (
    is       => 'rw',
    isa      => Enum([qw/h v m/]),
    required => 1,
    trigger  => \&_set_attr,
);

has ['left', 'right', 'top', 'bottom', 'speed'] => (
    is       => 'rw',
    isa      => Int,
    required => 1,
    trigger  => \&_set_attr,
);

has '+_set_cmd' =>
  (default => sub { [qw/ left top right bottom direction speed text /] },);

1;

__END__