File Coverage

blib/lib/Coro/PatchSet.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	5	6	83.3
condition	2	3	66.6
subroutine	3	3	100.0
pod			n/a
total	26	29	89.6

package Coro::PatchSet;

use strict;
use Carp;

our $VERSION = '0.12';

my %known_classes = (
	socket => 'Coro/PatchSet/Socket.pm',
	handle => 'Coro/PatchSet/Handle.pm',
	lwp    => 'Coro/PatchSet/LWP.pm',
);

sub import {
	my ($class, @import) = @_;

	unless (@import) {
		@import = keys %known_classes;
	}

	for my $class (@import) {
		$class = lc $class;

		unless (exists $known_classes{$class}) {
			croak "doesn't know how to patch `$class'";
		}

		if ($class eq 'lwp' && @_ == 1) {
			# Net::HTTP and others may be not installed
			eval { require $known_classes{$class} }
		}
		else {
			require $known_classes{$class};
		}
	}
}

1;

__END__