File Coverage

blib/lib/Venus/True.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 1 2 50.0
total 28 29 96.5


line stmt bran cond sub pod time code
1             package Venus::True;
2              
3 87     87   1825 use 5.018;
  87         297  
4              
5 87     87   466 use strict;
  87         202  
  87         1760  
6 87     87   413 use warnings;
  87         177  
  87         2197  
7              
8 87     87   478 use Scalar::Util ();
  87         193  
  87         8978  
9              
10             state $true = Scalar::Util::dualvar(1, "1");
11              
12             use overload (
13 1     1   6 '!' => sub{!$true},
14 1     1   156 'bool' => sub{$true},
15 87         906 fallback => 1,
16 87     87   109942 );
  87         90604  
17              
18             # METHODS
19              
20             sub new {
21 2     2 0 36 return bless({});
22             }
23              
24             sub value {
25 3034     3034 1 15378 return $true;
26             }
27              
28             1;
29              
30              
31              
32             =head1 NAME
33              
34             Venus::True - True Class
35              
36             =cut
37              
38             =head1 ABSTRACT
39              
40             True Class for Perl 5
41              
42             =cut
43              
44             =head1 SYNOPSIS
45              
46             package main;
47              
48             use Venus::True;
49              
50             my $true = Venus::True->new;
51              
52             # $true->value;
53              
54             =cut
55              
56             =head1 DESCRIPTION
57              
58             This package provides the global C value used in L and
59             the L function.
60              
61             =cut
62              
63             =head1 METHODS
64              
65             This package provides the following methods:
66              
67             =cut
68              
69             =head2 value
70              
71             value() (Bool)
72              
73             The value method returns value representing the global C value.
74              
75             I>
76              
77             =over 4
78              
79             =item value example 1
80              
81             # given: synopsis;
82              
83             my $value = $true->value;
84              
85             # 1
86              
87             =back
88              
89             =cut
90              
91             =head1 AUTHORS
92              
93             Awncorp, C
94              
95             =cut
96              
97             =head1 LICENSE
98              
99             Copyright (C) 2000, Al Newkirk.
100              
101             This program is free software, you can redistribute it and/or modify it under
102             the terms of the Apache license version 2.0.
103              
104             =cut