File Coverage

blib/lib/DMOSS/Attr.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch	8	22	36.3
condition			n/a
subroutine	4	8	50.0
pod	6	6	100.0
total	36	66	54.5

package DMOSS::Attr;
# ABSTRACT: DMOSS attribute object
$DMOSS::Attr::VERSION = '0.01_2';
use strict;
use warnings;

sub new {
  my ($class, $file, $plugin, $name, $value) = @_;
  my $self = bless({}, $class);

  $self->file($file) if $file;
  $self->plugin($plugin) if $plugin;
  $self->name($name) if $name;
  $self->value($value) if $value;
  $self->value({}) unless $self->value;
  $self->type(ref($value)) if $value;

  return $self;
}

sub file {
  my ($self, $file) = @_;
  $self->{file} = $file if $file;

  return $self->{file};
}

sub plugin {
  my ($self, $plugin) = @_;
  $self->{plugin} = $plugin if $plugin;

  return $self->{plugin};
}

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

  return $self->{name};
}

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

  return $self->{value};
}

sub type {
  my ($self, $type) = @_;
  $self->{type} = $type if $type;

  return $self->{type};
}

1;

__END__