File Coverage

blib/lib/Email/FolderType.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	40	42	95.2

use strict;
use warnings;
package Email::FolderType;
{
  $Email::FolderType::VERSION = '0.814';
}
# ABSTRACT: Email::FolderType - determine the type of a mail folder
use Module::Pluggable search_path => "Email::FolderType",
                      require     => 1,
                      sub_name    => 'matchers';

use Exporter 5.57 'import';

our @EXPORT_OK = qw(folder_type);

our $DEFAULT = 'Mbox';


sub folder_type ($) {
    my $folder  = shift;
    my $package = __PACKAGE__;

    no strict 'refs';


    foreach my $class ($package->matchers) {
        my $type = $class;

        $type =~ s!^$package\:\:!!;

        next if $type eq $DEFAULT; # delay till later since it's the default

        my $return;
        eval {
            $return = &{"$class\::match"}($folder);
        };
        return $type if $return;

    }

    # default
    return $DEFAULT if &{"$package\::$DEFAULT\::match"}($folder);

    return undef;
}



1;

__END__