File Coverage

blib/lib/Imager/Bing/MapLayer/Role/TileClass.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

package Imager::Bing::MapLayer::Role::TileClass;

use v5.10.1;

use feature qw/ state /;

use Moose::Role;

use Type::Tiny;
use Module::Load qw/ load /;

=head1 NAME

Imager::Bing::MapLayer::Role::TileClass - a tile class role

=cut

use version 0.77; our $VERSION = version->declare('v0.1.9');

=head1 DESCRIPTION

This role is for internal use by L<Imager::Bing::MapLayer>.

=cut

state $Type = Type::Tiny->new(
    name       => 'TileClass',
    constraint => sub {
        my $class = $_;
        load $class;
        $class->isa('Imager::Bing::MapLayer::Tile');
    },
    message => sub {
        "$_ must be a Imager::Bing::MapLayer::Tile";
    },
);

has 'tile_class' => (
    is      => 'ro',
    isa     => $Type,
    builder => '_build_tile_class',
);

sub _build_tile_class {
    'Imager::Bing::MapLayer::Tile';
}

use namespace::autoclean;

1;