File Coverage

blib/lib/Colouring/In/XS.pm

Criterion	Covered	Total	%
statement	24	30	80.0
branch	6	10	60.0
condition	3	4	75.0
subroutine	6	7	85.7
pod	1	2	50.0
total	40	53	75.4

package Colouring::In::XS;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.09';

require XSLoader;
XSLoader::load('Colouring::In::XS', $VERSION);

sub import {
        my ($pkg, @exports) = @_;
        my $caller = caller;
        set_messages(pop @exports) if (ref $exports[-1] eq 'HASH');
        if (scalar @exports) {
                no strict 'refs';
                *{"${caller}::${_}"} = \&{"${_[0]}::${_}"} foreach @exports;
        }
}

sub include_dir {
        my $dir = $INC{'Colouring/In/XS.pm'};
        # Installed: .../Colouring/In/XS.pm → .../Colouring/In/XS/include
        (my $installed = $dir) =~ s{XS\.pm$}{XS/include};
        return $installed if -d $installed;
        # Development: lib/Colouring/In/XS.pm → include
        (my $dev = $dir) =~ s{lib/Colouring/In/XS\.pm$}{include};
        return $dev if -d $dev;
        return $installed;
}

sub validate {
	my ($self, $colour) = @_;
	my $new = eval { $self->new($colour) };
	if ($@) {
		return {
			valid => \0,
			message => get_message('VALIDATE_ERROR') || 'The string passed to Colouring::In::XS::validate is not a valid color.',
			color => $colour
		};
	}
	return {
		valid => \1,
		message => get_message('VALIDATE') || 'The string passed to Colouring::In::XS::validate is a valid color',
		color => $colour,
		colour => $new
	};
}

1;

__END__