File Coverage

blib/lib/MoobX/Attributes.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 3 0.0
total 36 39 92.3


line stmt bran cond sub pod time code
1             our $AUTHORITY = 'cpan:YANICK';
2             #ABSTRACT: Attributes to annotate variables as MoobX observables
3             $MoobX::Attributes::VERSION = '0.1.1';
4              
5              
6             use 5.20.0;
7 8     8   3717  
  8         26  
8             use MoobX '!:attributes';
9 8     8   49  
  8         11  
  8         63  
10             use Attribute::Handlers;
11 8     8   5724  
  8         35170  
  8         43  
12             no warnings 'redefine';
13 8     8   259  
  8         13  
  8         442  
14             my ($package, $symbol, $referent, $attr, $data) = @_;
15              
16 4     4 0 18177 MoobX::observable_ref($referent);
17             }
18 4         66  
19 8     8   40 my ($package, $symbol, $referent, $attr, $data) = @_;
  8         10  
  8         42  
20              
21             MoobX::observable_ref($referent);
22 1     1 0 3296 }
23              
24 1         4 my ($package, $symbol, $referent, $attr, $data) = @_;
25 8     8   2039  
  8         12  
  8         30  
26             MoobX::observable_ref($referent);
27             }
28 1     1 0 3781  
29             1;
30 1         4  
31 8     8   2003  
  8         30  
  8         36  
32             =pod
33              
34             =encoding UTF-8
35              
36             =head1 NAME
37              
38             MoobX::Attributes - Attributes to annotate variables as MoobX observables
39              
40             =head1 VERSION
41              
42             version 0.1.1
43              
44             =head1 SYNOPSIS
45              
46             use MoobX;
47              
48             my $foo :Observable;
49              
50             =head1 DESCRIPTION
51              
52             Used internally by L<MoobX>.
53              
54             =head1 AUTHOR
55              
56             Yanick Champoux <yanick@cpan.org>
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             This software is copyright (c) 2022, 2017 by Yanick Champoux.
61              
62             This is free software; you can redistribute it and/or modify it under
63             the same terms as the Perl 5 programming language system itself.
64              
65             =cut