File Coverage

blib/lib/Net/Gnats/FieldInstance.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	30	34	88.2

package Net::Gnats::FieldInstance;
use strictures;
BEGIN {
  $Net::Gnats::FieldInstance::VERSION = '0.20';
}
use vars qw($VERSION);

sub new {
  my ($class, %options) = @_;
  return bless \%options, $class;
}

sub name {
  my ($self) = @_;
  $self->{name} = $self->schema->name if not defined $self->{name};
  $self->{name};
}

sub value {
  my ($self, $value) = @_;
  $self->{value} = $self->schema->default if not defined $self->{value};
  $self->{value} = $value if defined $value;
  $self->{value};
}

sub schema { return shift->{schema} }

1;