File Coverage

blib/lib/DBIx/Romani/Query/SQL/TTT/Function.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	40	40.0

package DBIx::Romani::Query::SQL::TTT::Function;
use base qw(DBIx::Romani::Query::Function);

use DBIx::Romani::Query::SQL::Column;
use DBIx::Romani::Query::SQL::Literal;
use strict;

sub new
{
	my $class = shift;
	my $self  = $class->SUPER::new();

	my $name = shift;
	$self->{name} = $name;

	bless  $self, $class;
	return $self;
}

sub get_name { return shift->{name} };

sub visit
{
	my ($self, $visitor) = @_;
	return $visitor->visit_ttt_function( $self );
}

sub clone
{
	my $self = shift;

	my $clone = DBIx::Romani::Query::SQL::TTT::Function->new( $self->get_name() );

	foreach my $keyword ( @{$self->get_keywords()} )
	{
		$clone->add_keyword( $keyword );
	}

	$clone->copy_arguments( $self );

	return $clone;
}

1;