File Coverage

blib/lib/Toolforge/MixNMatch/Struct/YearMonth.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	21	23	91.3

package Toolforge::MixNMatch::Struct::YearMonth;

use strict;
use warnings;

use Toolforge::MixNMatch::Object::YearMonth;

our $VERSION = 0.02;

sub obj2struct {
	my $obj = shift;

	my $struct_hr = {
		'cnt' => $obj->count,
		'ym' => $obj->year.(sprintf '%02d', $obj->month),
	};

	return $struct_hr;
}

sub struct2obj {
	my $struct_hr = shift;

	my ($year, $month) = $struct_hr->{'ym'} =~ m/^(\d{4})(\d{2})$/ms;
	my $obj = Toolforge::MixNMatch::Object::YearMonth->new(
		'count' => $struct_hr->{'cnt'},
		'month' => int($month),
		'year' => $year,
	);

	return $obj;
}

1;

__END__