File Coverage

blib/lib/Gopher/Server/TypeMapper.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	9	10	90.0
condition			n/a
subroutine	9	9	100.0
pod	0	5	0.0
total	43	49	87.7

package Gopher::Server::TypeMapper;
use strict;
use warnings;

use overload q("") => \&as_string;

# Constants
sub GOPHER_TYPE () { 0 }
sub MIME_TYPE   () { 1 }
sub TYPES       () {{
	txt        => [  '0', 'text/plain'        ],
	directory  => [  '1', ''                  ],
	default    => [  '9', 'application/data'  ],
}}


sub get_type
{
	my ($class, $in) = @_;

	my $ext = $in->{extention} ? $in->{extention} : '';
	unless($ext) {
		my $filename = $in->{filename}
			or die "Need a filename or extention";

		if( -d $filename ) {
			$ext = 'directory';
		}
		else {
			($ext) = $filename =~ / \. (\w+) \z/x;
		}
	}

	no warnings; # Shut off warnings for case where $ext isn't defined
	my $self = exists TYPES->{$ext} ? TYPES->{$ext} : TYPES->{default};
	bless $self => $class;
}


sub gopher_type  {  $_[0]->[GOPHER_TYPE]  }
sub mime_type    {  $_[0]->[MIME_TYPE]    }

sub as_string    {  $_[0]->gopher_type    }


1;
__END__