File Coverage

blib/lib/Colouring/In/XS.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	6	6	100.0
condition	3	4	75.0
subroutine	6	6	100.0
pod	1	1	100.0
total	40	41	97.5

package Colouring::In::XS;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.07';

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 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__