Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
Charset	[ DIR ]	drwxr-xr-x
Decoder	[ DIR ]	drwxr-xr-x
EncWords	[ DIR ]	drwxr-xr-x
Field	[ DIR ]	drwxr-xr-x
Parser	[ DIR ]	drwxr-xr-x
Body.pm	15.77 KB	-rw-r--r--
Charset.pm	35.7 KB	-rw-r--r--
Decoder.pm	15.93 KB	-rw-r--r--
EncWords.pm	35.22 KB	-rw-r--r--
Entity.pm	63.31 KB	-rw-r--r--
Head.pm	24.81 KB	-rw-r--r--
Lite.pm	102.65 KB	-r--r--r--
Parser.pm	53.12 KB	-rw-r--r--
Tools.pm	30.77 KB	-rw-r--r--
Type.pm	2.4 KB	-rw-r--r--
Type.pod	5.87 KB	-rw-r--r--
Types.pm	31.7 KB	-rw-r--r--
Types.pod	5.67 KB	-rw-r--r--
WordDecoder.pm	16.84 KB	-rw-r--r--
Words.pm	9.81 KB	-rw-r--r--

Code Editor : Type.pm

# Copyrights 1999,2001-2013 by [Mark Overmeer].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.00.
package MIME::Type;
use vars '$VERSION';
$VERSION = '1.38';

use strict;

use Carp 'croak';

#-------------------------------------------

use overload '""' => 'type'
           ,  cmp => 'equals'
           ;

#-------------------------------------------

sub new(@) { (bless {}, shift)->init( {@_} ) }

sub init($)
{   my ($self, $args) = @_;

$self->{MT_type}       = $args->{type}
       or croak "ERROR: Type parameter is obligatory.";

$self->{MT_simplified} = $args->{simplified}
       || ref($self)->simplified($args->{type});

$self->{MT_extensions} = $args->{extensions} || [];

$self->{MT_encoding}
       = $args->{encoding}          ? $args->{encoding}
       : $self->mediaType eq 'text' ? 'quoted-printable'
       :                              'base64';

$self->{MT_system}     = $args->{system}
       if defined $args->{system};

$self;
}

#-------------------------------------------

sub type() {shift->{MT_type}}

sub simplified(;$)
{   my $thing = shift;
    return $thing->{MT_simplified} unless @_;

my $mime  = shift;

$mime =~ m!^\s*(?:x\-)?([\w.+-]+)/(?:x\-)?([\w.+-]+)\s*$!i ? lc "$1/$2"
    : $mime =~ m!text! ? "text/plain"         # some silly mailers...
    : undef;
}

sub extensions() { @{shift->{MT_extensions}} }

sub encoding() {shift->{MT_encoding}}

sub system() {shift->{MT_system}}

#-------------------------------------------

sub mediaType() {shift->{MT_simplified} =~ m!^([\w.-]+)/! ? $1 : undef}
sub mainType()  {shift->mediaType} # Backwards compatibility

sub subType() {shift->{MT_simplified} =~ m!/([\w+.-]+)$! ? $1 : undef}

sub isRegistered()
{   local $_ = shift->{MT_type};
    not (m/^[xX]\-/ || m!/[xX]\-!);
}

sub isBinary() { shift->{MT_encoding} eq 'base64' }

sub isAscii() { shift->{MT_encoding} ne 'base64' }

# simplified names only!
my %sigs = map { ($_ => 1) }
  qw(application/pgp-keys application/pgp application/pgp-signature
     application/pkcs10 application/pkcs7-mime application/pkcs7-signature
     text/vCard);

sub isSignature() { $sigs{shift->{MT_simplified}} }

sub equals($)
{   my ($self, $other) = @_;

my $type = ref $other
      ? $other->simplified
      : (ref $self)->simplified($other);

$self->simplified cmp $type;
}

${this.title}

Code Editor : Type.pm