File Coverage

blib/arch/Graphics/Layout/Kiwisolver/Expression.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1 8     8   53 use strict;
  8         16  
  8         223  
2 8     8   73 use warnings;
  8         20  
  8         436  
3             package Graphics::Layout::Kiwisolver::Expression;
4             # ABSTRACT: Kiwisolver expression
5             $Graphics::Layout::Kiwisolver::Expression::VERSION = '0.002';
6 8     8   44 use overload "fallback" => 0, '""' => \&stringify;
  8         39  
  8         75  
7              
8             sub stringify {
9 1     1 0 2227 my ($self) = @_;
10 1         15 "(@{[ $self->constant ]} + "
11 1         3 . join(" + ", map { "$_" } @{ $self->terms })
  3         12  
  1         38  
12 1         21 . " : @{[ $self->value ]})"
13             }
14              
15             1;
16              
17             __END__
18              
19             =pod
20              
21             =encoding UTF-8
22              
23             =head1 NAME
24              
25             Graphics::Layout::Kiwisolver::Expression - Kiwisolver expression
26              
27             =head1 VERSION
28              
29             version 0.002
30              
31             =head1 AUTHOR
32              
33             Zakariyya Mughal <zmughal@cpan.org>
34              
35             =head1 COPYRIGHT AND LICENSE
36              
37             This software is copyright (c) 2019 by Zakariyya Mughal.
38              
39             This is free software; you can redistribute it and/or modify it under
40             the same terms as the Perl 5 programming language system itself.
41              
42             =cut