File Coverage

blib/lib/WebService/BambooHR/EmployeeChange.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	6	0.0
condition			n/a
subroutine	2	5	40.0
pod	0	3	0.0
total	8	26	30.7

package WebService::BambooHR::EmployeeChange;
$WebService::BambooHR::EmployeeChange::VERSION = '0.04';
use 5.006;
use Moo;

has id           => (is => 'ro');
has lastChanged => (is => 'ro');
has action       => (is => 'ro');

sub deleted
{
    my $self = shift;
    return $self->action eq 'Deleted' ? 1 : 0;
}

sub inserted
{
    my $self = shift;
    return $self->action eq 'Inserted' ? 1 : 0;
}

sub updated
{
    my $self = shift;
    return $self->action eq 'Updated' ? 1 : 0;
}

1;

=head1 NAME

WebService::BambooHR::EmployeeChange - data class returned by changed_employees method