File: Maildir.pm

package info (click to toggle)
libemail-foldertype-perl 0.813-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, lenny, squeeze, wheezy
  • size: 164 kB
  • ctags: 14
  • sloc: perl: 63; makefile: 39
file content (15 lines) | stat: -rw-r--r-- 242 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
package Email::FolderType::Maildir;
use strict;

=head1 NAME

Email::FolderType::Maildir - class to help Email::FolderType recognise maildirs

=cut

sub match {
  my $folder = shift;
  return ($folder =~ m{[^/]/$} || -d "$folder/cur");
}

1;