File Coverage

blib/lib/PICA/Modification/Request.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package PICA::Modification::Request;
{
  $PICA::Modification::Request::VERSION = '0.16';
}
#ABSTRACT: Request for modification of an identified PICA+ record

use strict;
use warnings;
use v5.10;

use parent 'PICA::Modification';
use Time::Stamp gmstamp => { format => 'easy', tz => '' };

our @ATTRIBUTES = qw(id iln epn del add request creator status updated created);

sub new {
    my $self = PICA::Modification::new( @_ );

	$self->{created} //= gmstamp;
    $self->{status}  //= 0;

    $self;
}

sub update {
	my ($self, $status) = @_;

	$self->{status}  = $status;
	$self->{updated} = gmstamp;
}

1;



__END__