File Coverage

blib/lib/DBIx/Romani/Query/Function/Now.pm
Criterion Covered Total %
statement 12 21 57.1
branch n/a
condition n/a
subroutine 4 7 57.1
pod 0 3 0.0
total 16 31 51.6


line stmt bran cond sub pod time code
1              
2             package DBIx::Romani::Query::Function::Now;
3 1     1   7 use base qw(DBIx::Romani::Query::Function);
  1         2  
  1         79  
4              
5 1     1   7 use DBIx::Romani::Query::SQL::Column;
  1         2  
  1         22  
6 1     1   7 use DBIx::Romani::Query::SQL::Literal;
  1         1  
  1         21  
7 1     1   5 use strict;
  1         1  
  1         209  
8              
9             sub new
10             {
11 0     0 0   my $class = shift;
12 0           my $args = shift;
13              
14 0           my $self = $class->SUPER::new();
15              
16 0           bless $self, $class;
17 0           return $self;
18             }
19              
20             sub add
21             {
22 0     0 0   my ($self, $value) = @_;
23            
24 0           die "Now function cannot have any arguments";
25             }
26              
27             sub visit
28             {
29 0     0 0   my ($self, $visitor) = @_;
30 0           return $visitor->visit_function_now( $self );
31             }
32              
33             1;
34