File Coverage

blib/lib/Data/Validate/CSV/Types.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	30	30	100.0

use v5.12;
use strict;
use warnings;

package Data::Validate::CSV::Types;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.002';

use Type::Library -base, -declare => qw(
	Table
	Row
	Cell
	Column
	Schema
	Note
	SingleValueCell
	MultiValueCell
);

BEGIN {
	require Type::Utils;
	Type::Utils::extends(qw( Types::Standard ));
};

use Types::Path::Tiny qw( Path );
use Type::Tiny::Class ();
use Type::Tiny::Role ();

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => Table,
	class    => 'Data::Validate::CSV::Table',
));

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => Note,
	class    => 'Data::Validate::CSV::Note',
	coercion => [
		HashRef,        q{ 'Data::Validate::CSV::Note'->new($_) },
	],
));

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => Schema,
	class    => 'Data::Validate::CSV::Schema',
	coercion => [
		HashRef,        q{ 'Data::Validate::CSV::Schema'->new_from_hashref($_) },
		Str|ScalarRef,  q{ 'Data::Validate::CSV::Schema'->new_from_json($_) },
		Path,           q{ 'Data::Validate::CSV::Schema'->new_from_file($_) },
	],
));

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => Column,
	class    => 'Data::Validate::CSV::Column',
	coercion => [
		HashRef,        q{ 'Data::Validate::CSV::Column'->new($_) },
	],
));

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => Row,
	class    => 'Data::Validate::CSV::Row',
));

__PACKAGE__->add_type(Type::Tiny::Role->new(
	name     => Cell,
	role     => 'Data::Validate::CSV::Cell',
));

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => SingleValueCell,
	class    => 'Data::Validate::CSV::SingleValueCell',
));

__PACKAGE__->add_type(Type::Tiny::Class->new(
	name     => MultiValueCell,
	class    => 'Data::Validate::CSV::MultiValueCell',
));

__PACKAGE__->make_immutable;

1;