package URI::imap;
# $Id: imap.pm,v 1.1 2004/08/07 19:17:46 cwest Exp $
use strict;

use vars qw[$VERSION];
$VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1];

use base qw[URI::_server];

sub default_port { 143 }

1;

__END__

=head1 NAME

URI::imap - Support IMAP URI

=head1 DESCRIPTION

Support IMAP schemas with L<URI|URI>.

=head1 SEE ALSO

L<URI>.

=head1 AUTHOR

Casey West, <F<casey@geeknest.com>>.

=head1 COPYRIGHT

  Copyright (c) 2004 Casey West.  All rights reserved.
  This module is free software; you can redistribute it and/or modify it
  under the same terms as Perl itself.

=cut