Index: trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm
===================================================================
--- trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm	(revision 5226)
+++ trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm	(revision 5261)
@@ -1,39 +1,28 @@
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: PSFTP.pm,v 1.2 2005-10-10 22:46:55 jhoblitt Exp $
+
 package PS::IPP::PSFTP;
+
 use strict;
+use warnings FATAL => qw( all );
 
-BEGIN {
-    use Exporter ();
-    use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-    $VERSION     = '0.01';
-    @ISA         = qw(Exporter);
-    #Give a hoot don't pollute, do not export more than needed by default
-    @EXPORT      = qw();
-    @EXPORT_OK   = qw();
-    %EXPORT_TAGS = ();
-}
-
-
-#################### subroutine header begin ####################
-
-=head2 sample_function
-
- Usage     : How to use this function/method
- Purpose   : What it does
- Returns   : What it returns
- Argument  : What it wants to know
- Throws    : Exceptions and other anomolies
- Comment   : This is a sample subroutine header.
-           : It is polite to include more pod and fewer comments.
-
-See Also   : 
-
-=cut
-
-#################### subroutine header end ####################
-
+use Data::Validate::URI qw( is_uri );
+use Params::Validate qw( validate SCALAR );
 
 sub new
 {
-    my ($class, %parameters) = @_;
+    my $class = shift;
+    
+    my %p = validate(@_,
+        {
+            base_url => {
+                type    => SCALAR,
+                callbacks => {
+                    'is valid url' => sub { is_uri( $_[0] ) },
+                },
+            },
+        },
+    );
 
     my $self = bless ({}, ref ($class) || $class);
@@ -42,70 +31,5 @@
 }
 
+1;
 
-#################### main pod documentation begin ###################
-## Below is the stub of documentation for your module. 
-## You better edit it!
-
-
-=head1 NAME
-
-PS::IPP::PSFTP - Module abstract (<= 44 characters) goes here
-
-=head1 SYNOPSIS
-
-  use PS::IPP::PSFTP;
-  blah blah blah
-
-
-=head1 DESCRIPTION
-
-Stub documentation for this module was created by ExtUtils::ModuleMaker.
-It looks like the author of the extension was negligent enough
-to leave the stub unedited.
-
-Blah blah blah.
-
-
-=head1 USAGE
-
-
-
-=head1 BUGS
-
-
-
-=head1 SUPPORT
-
-
-
-=head1 AUTHOR
-
-	A. U. Thor
-	CPAN ID: MODAUTHOR
-	XYZ Corp.
-	a.u.thor@a.galaxy.far.far.away
-	http://a.galaxy.far.far.away/modules
-
-=head1 COPYRIGHT
-
-This program is free software licensed under the...
-
-	The General Public License (GPL)
-	Version 2, June 1991
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1).
-
-=cut
-
-#################### main pod documentation end ###################
-
-
-1;
-# The preceding line will help the module return a true value
-
+__END__