File Coverage

blib/lib/EPL2/Command/Q.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package EPL2::Command::Q;
2             # ABSTRACT: Q Command (Set Form Length)
3             $EPL2::Command::Q::VERSION = '0.001';
4 3     3   447 use 5.010;
  3         7  
5 3     3   444 use Moose;
  3         284583  
  3         15  
6 3     3   12803 use MooseX::Method::Signatures;
  3         861267  
  3         17  
7 3     3   386 use namespace::autoclean;
  3         4  
  3         19  
8 3     3   540 use EPL2::Types 'Padheight';
  3         5  
  3         16  
9              
10             extends 'EPL2::Command';
11              
12             #Public Attributes
13             has height => ( is => 'rw', isa => Padheight, default => 0, );
14             has continuous => ( is => 'rw', isa => 'Bool', default => 1, );
15              
16             #Methods
17 3     3   278918 method string ( Str :$delimiter = "\n" ) {
18             my $string = sprintf 'Q%d', $self->height;
19             $string .= ',0' if ( $self->continuous );
20             return $string . $delimiter;
21             }
22              
23             __PACKAGE__->meta->make_immutable;
24              
25             1;
26              
27             __END__
28              
29             =pod
30              
31             =encoding UTF-8
32              
33             =head1 NAME
34              
35             EPL2::Command::Q - Q Command (Set Form Length)
36              
37             =head1 VERSION
38              
39             version 0.001
40              
41             =head1 SYNOPSIS
42              
43             my $Q = EPL2::Command::Q->new( height => 800 );
44             say $Q->string;
45              
46             =head1 ATTRIBUTES
47              
48             =head2 height ( Padheight default = 0 )
49              
50             Describe height of a Label.
51              
52             =head2 continuous ( Bool default = 1 )
53              
54             If true sets Gap length or Thickness of black line to 0 for continuous print media.
55              
56             =head1 METHODS
57              
58             =head2 string
59              
60             param: ( delimiter => "\n" )
61              
62             Return an EPL2 formatted string used for setting Form height.
63              
64             =head1 SEE ALSO
65              
66             L<EPL2>
67              
68             L<EPL2::Types>
69              
70             =head1 AUTHOR
71              
72             Ted Katseres <tedkat@cpan.org>
73              
74             =head1 COPYRIGHT AND LICENSE
75              
76             This software is copyright (c) 2016 by Ted Katseres.
77              
78             This is free software; you can redistribute it and/or modify it under
79             the same terms as the Perl 5 programming language system itself.
80              
81             =cut