Gopher-Server

 view release on metacpan or  search on metacpan

lib/Gopher/Server/TypeMapper.pm  view on Meta::CPAN

		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;

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.938 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )