File Coverage

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

Criterion	Covered	Total	%
statement	3	17	17.6
branch	0	2	0.0
condition			n/a
subroutine	1	5	20.0
pod	0	4	0.0
total	4	28	14.2

package DBIx::Romani::Query::SQL::TTT::Keyword;

use strict;

sub new
{
	my $class = shift;
	my $args  = shift;

	my $keyword;

	if ( ref($args) eq 'HASH' )
	{
		$keyword = $args->{keyword};
	}
	else
	{
		$keyword = $args;
	}

	my $self = {
		keyword => $keyword,
	};

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

sub get_keyword { return shift->{keyword}; }

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

sub clone
{
	my $self = shift;

	return DBIx::Romani::Query::SQL::TTT::Keyword->new({ keyword => $self->get_keyword() });
}

1;