File Coverage

blib/lib/EntityModel/Query/InsertField.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	1	4	25.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	22	27	81.4

package EntityModel::Query::InsertField;
{
  $EntityModel::Query::InsertField::VERSION = '0.102';
}
use EntityModel::Class {
	'_isa' => [qw(EntityModel::Query::Field)],
	'value' => 'string',
};
no if $] >= 5.017011, warnings => "experimental::smartmatch";

=head1 NAME

EntityModel::Query::InsertField - field list for INSERT statement

=head1 VERSION

version 0.102

=head1 SYNOPSIS

See L.

=head1 DESCRIPTION

See L.

=cut

=head1 METHODS

=cut

sub new {
	my $class = shift;
	my $self = bless { }, $class;
	my $args = shift;
	my @spec;
	if(ref $args ~~ 'HASH') {
		push @spec, %$args;
	} elsif(ref $args ~~ 'ARRAY') {
		push @spec, @$args;
	} else {
		die "no idea what $args is";
	}

	while(@spec) {
		my $k = shift(@spec);
		my $v = shift(@spec);
		$self->$k($v);
	}
	return $self;
}

1;

__END__