File Coverage

blib/lib/AnyEvent/FTP/Client/Site.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod	0	1	0.0
total	38	41	92.6

package AnyEvent::FTP::Client::Site;

use strict;
use warnings;
use 5.010;

# ABSTRACT: Dispatcher for site specific ftp commands
our $VERSION = '0.17'; # VERSION

sub new
{
  my($class, $client) = @_;
  bless { client => $client }, $class;
}

sub AUTOLOAD
{
  our $AUTOLOAD;
  my $self = shift;
  my $name = $AUTOLOAD;
  $name =~ s/^.*://;
  $name =~ s/_(.)/uc $1/eg;
  my $class = join('::', qw( AnyEvent FTP Client Site ), ucfirst($name) );
  eval qq{ use $class () };
  die $@ if $@;
  $class->new($self->{client});
}

# don't autoload DESTROY
sub DESTROY { }

1;

__END__