File Coverage

blib/lib/MoobX/Scalar.pm
Criterion Covered Total %
statement 5 8 62.5
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             our $AUTHORITY = 'cpan:YANICK';
2             # ABSTRACT: MoobX wrapper for scalar variables
3             $MoobX::Scalar::VERSION = '0.1.2';
4              
5             use Moose;
6 6     6   3155  
  6         14  
  6         48  
7             has value => (
8             is => 'rw',
9             writer => 'STORE',
10             );
11              
12              
13 26     26   756 my( $class, @args ) = @_;
14              
15             unshift @args, 'value' if @args == 1;
16 0     0 0 0  
17             return { @args }
18 0 0       0 }
19              
20 0         0  
21             1;
22              
23 9     9   90  
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             MoobX::Scalar - MoobX wrapper for scalar variables
31              
32             =head1 VERSION
33              
34             version 0.1.2
35              
36             =head1 DESCRIPTION
37              
38             Class implementing a C<tie>ing interface for scalar variables.
39              
40             Used internally by L<MoobX>.
41              
42             =head1 AUTHOR
43              
44             Yanick Champoux <yanick@cpan.org>
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2022, 2017 by Yanick Champoux.
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut