File Coverage

blib/lib/Email/FolderType/Net.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	6	6	100.0
pod			n/a
total	29	30	96.6

use strict;
use warnings;
package Email::FolderType::Net;
{
  $Email::FolderType::Net::VERSION = '1.043';
}
# ABSTRACT: Recognize folder types for network based message protocols.

use URI 1.35;


sub _from_scheme {
    my $scheme = shift;
    my $uri    = URI->new(shift);
    return unless $uri->scheme;
    return 1 if lc($uri->scheme) eq $scheme;
    return;
}

sub _create_match {
    my (@schemes) = @_;
    return sub {
        Email::FolderType::Net::_from_scheme($_,@_)
          and return(1)
            for @schemes;
        return;
    };
}

package Email::FolderType::IMAP;
{
  $Email::FolderType::IMAP::VERSION = '1.043';
}
*match = Email::FolderType::Net::_create_match(qw[imap]);
package Email::FolderType::IMAPS;
{
  $Email::FolderType::IMAPS::VERSION = '1.043';
}
*match = Email::FolderType::Net::_create_match(qw[imaps]);
package Email::FolderType::POP3;
{
  $Email::FolderType::POP3::VERSION = '1.043';
}
*match = Email::FolderType::Net::_create_match(qw[pop pop3]);
package Email::FolderType::POP3S;
{
  $Email::FolderType::POP3S::VERSION = '1.043';
}
*match = Email::FolderType::Net::_create_match(qw[pops pop3s]);

__END__