File: Ezmlm.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 (16 lines) | stat: -rw-r--r-- 247 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
package Email::FolderType::Ezmlm;
use strict;

=head1 NAME

Email::FolderType::Ezmlm - class to help Email::FolderType recognise ezmlm archives

=cut

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


1;