@@ -6,6 +6,13 @@ Mark Overmeer.
TODO:
. Add source http://www.ltsw.se/knbase/internet/mime.htp ?
+version 2.09: Sun Sep 14 18:12:08 CEST 2014
+
+ Improvements:
+ - documentation use consistent parameter casing
+ - do not use '//' to support 5.8.*
+ rt.cpan.org#98664 [Paul]
+
version 2.08: Fri Sep 5 15:29:52 CEST 2014
Fixes:
@@ -40,5 +40,5 @@
}
},
"release_status" : "stable",
- "version" : "2.08"
+ "version" : "2.09"
}
@@ -22,4 +22,4 @@ requires:
File::Spec: 0
List::Util: 0
Test::More: 0.47
-version: 2.08
+version: 2.09
@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
require 5.008_008;
-my $version = '2.08'; # scanned by bin/collect_types !
+my $version = '2.09'; # scanned by bin/collect_types !
WriteMakefile
( NAME => 'MIME::Types'
@@ -4,7 +4,7 @@
# Pod stripped from pm file by OODoc 2.01.
package MIME::Type;
use vars '$VERSION';
-$VERSION = '2.08';
+$VERSION = '2.09';
use strict;
@@ -27,13 +27,13 @@ sub new(@) { (bless {}, shift)->init( {@_} ) }
sub init($)
{ my ($self, $args) = @_;
- my $type = $self->{MT_type} = $args->{type}
+ my $type = $self->{MT_type} = $args->{type}
or croak "ERROR: Type parameter is obligatory.";
- $self->{MT_simplified} = $args->{simplified}
+ $self->{MT_simplified} = $args->{simplified}
|| $self->simplified($type);
- $self->{MT_extensions} = $args->{extensions} || [];
+ $self->{MT_extensions} = $args->{extensions} || [];
$self->{MT_encoding}
= $args->{encoding} ? $args->{encoding}
@@ -48,7 +48,6 @@ sub init($)
#-------------------------------------------
-
sub type() {shift->{MT_type}}
@@ -65,12 +64,8 @@ sub simplified(;$)
sub extensions() { @{shift->{MT_extensions}} }
-
-
-sub encoding() {shift->{MT_encoding}}
-
-
-sub system() {shift->{MT_system}}
+sub encoding() {shift->{MT_encoding}}
+sub system() {shift->{MT_system}}
#-------------------------------------------
@@ -60,7 +60,7 @@ example: use of stringification
=over 4
-=item MIME::Type-E<gt>B<new>(OPTIONS)
+=item MIME::Type-E<gt>B<new>(%options)
Create (I<instantiate>) a new MIME::Type object which manages one
mime type.
@@ -120,9 +120,9 @@ type safely.
Returns a list of extensions which are known to be used for this
mime type.
-=item $obj-E<gt>B<simplified>( [STRING] )
+=item $obj-E<gt>B<simplified>( [$string] )
-=item MIME::Type-E<gt>B<simplified>( [STRING] )
+=item MIME::Type-E<gt>B<simplified>( [$string] )
Returns the simplified mime type for this object or the specified STRING.
Mime type names can get officially registered. Until then, they have to
@@ -153,7 +153,7 @@ Returns the long type of this object, for instance C<'text/plain'>
=over 4
-=item $obj-E<gt>B<equals>(STRING|MIME)
+=item $obj-E<gt>B<equals>($string|$mime)
Compare this mime-type object with a STRING or other object. In case of
a STRING, simplification will take place.
@@ -225,8 +225,8 @@ specified with the C<type> option flag.
=head1 SEE ALSO
-This module is part of MIME-Types distribution version 2.08,
-built on September 05, 2014. Website: F<http://perl.overmeer.net/mimetypes/>
+This module is part of MIME-Types distribution version 2.09,
+built on September 14, 2014. Website: F<http://perl.overmeer.net/mimetypes/>
=head1 LICENSE
@@ -5,7 +5,7 @@
package MIME::Types;
use vars '$VERSION';
-$VERSION = '2.08';
+$VERSION = '2.09';
use strict;
@@ -78,7 +78,6 @@ sub create_type_index {}
#-------------------------------------------
-
sub type($)
{ my $spec = lc $_[1];
$spec = 'text/plain' if $spec eq 'text'; # old mailers
@@ -150,7 +149,6 @@ sub listTypes()
}
-
sub extensions { keys %{$typedb{EXTENSIONS}} }
sub _MojoExtTable() {$typedb{EXTENSIONS}}
@@ -168,7 +166,7 @@ sub httpAccept($)
$ !x or next;
my $mime = "$1/$2$4";
- my $q = $3 // ($1 eq '*' ? -2 : $2 eq '*' ? -1 : 1);
+ my $q = $3 || ($1 eq '*' ? -2 : $2 eq '*' ? -1 : 1);
push @listed, [ $mime, $q-@listed*0.001 ];
}
map $_->[0], sort {$b->[1] <=> $a->[1]} @listed;
@@ -51,7 +51,7 @@ of types.
=over 4
-=item MIME::Types-E<gt>B<new>(OPTIONS)
+=item MIME::Types-E<gt>B<new>(%options)
Create a new C<MIME::Types> object which manages the data. In the current
implementation, it does not matter whether you create this object often
@@ -93,7 +93,7 @@ Do not load the table to map extensions to types, which is quite large.
=over 4
-=item $obj-E<gt>B<addType>(TYPE, ...)
+=item $obj-E<gt>B<addType>($type, ...)
Add one or more TYPEs to the set of known types. Each TYPE is a
C<MIME::Type> which must be experimental: either the main-type or
@@ -114,7 +114,7 @@ Returns a list of all defined extensions.
Returns a list of all defined mime-types by name only. This will B<not>
instantiate L<MIME::Type|MIME::Type> objects. See L<types()|MIME::Types/"Knowledge">
-=item $obj-E<gt>B<mimeTypeOf>(FILENAME)
+=item $obj-E<gt>B<mimeTypeOf>($filename)
Returns the C<MIME::Type> object which belongs to the FILENAME (or simply
its filename extension) or C<undef> if the file type is unknown. The extension
@@ -132,7 +132,7 @@ example: use of mimeTypeOf()
my $mime = $types->mimeTypeOf('picture.jpg');
print $mime->isBinary;
-=item $obj-E<gt>B<type>(STRING)
+=item $obj-E<gt>B<type>($string)
Returns the C<MIME::Type> which describes the type related to STRING.
[2.00] Only one type will be returned.
@@ -246,8 +246,8 @@ missing, please contact the maintainer for inclusion.
=head1 SEE ALSO
-This module is part of MIME-Types distribution version 2.08,
-built on September 05, 2014. Website: F<http://perl.overmeer.net/mimetypes/>
+This module is part of MIME-Types distribution version 2.09,
+built on September 14, 2014. Website: F<http://perl.overmeer.net/mimetypes/>
=head1 LICENSE
@@ -4,7 +4,7 @@
# Pod stripped from pm file by OODoc 2.01.
package MojoX::MIME::Types;
use vars '$VERSION';
-$VERSION = '2.08';
+$VERSION = '2.09';
use Mojo::Base -base;
@@ -202,8 +202,8 @@ L<MIME::Types::httpAcceptSelect()|MIME::Types/"HTTP support"> to replace this br
=head1 SEE ALSO
-This module is part of MIME-Types distribution version 2.08,
-built on September 05, 2014. Website: F<http://perl.overmeer.net/mimetypes/>
+This module is part of MIME-Types distribution version 2.09,
+built on September 14, 2014. Website: F<http://perl.overmeer.net/mimetypes/>
=head1 LICENSE