IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 5261


Ignore:
Timestamp:
Oct 10, 2005, 12:46:55 PM (21 years ago)
Author:
jhoblitt
Message:

add new()

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm

    r5226 r5261  
     1# Copyright (C) 2005  Joshua Hoblitt
     2#
     3# $Id: PSFTP.pm,v 1.2 2005-10-10 22:46:55 jhoblitt Exp $
     4
    15package PS::IPP::PSFTP;
     6
    27use strict;
     8use warnings FATAL => qw( all );
    39
    4 BEGIN {
    5     use Exporter ();
    6     use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
    7     $VERSION     = '0.01';
    8     @ISA         = qw(Exporter);
    9     #Give a hoot don't pollute, do not export more than needed by default
    10     @EXPORT      = qw();
    11     @EXPORT_OK   = qw();
    12     %EXPORT_TAGS = ();
    13 }
    14 
    15 
    16 #################### subroutine header begin ####################
    17 
    18 =head2 sample_function
    19 
    20  Usage     : How to use this function/method
    21  Purpose   : What it does
    22  Returns   : What it returns
    23  Argument  : What it wants to know
    24  Throws    : Exceptions and other anomolies
    25  Comment   : This is a sample subroutine header.
    26            : It is polite to include more pod and fewer comments.
    27 
    28 See Also   :
    29 
    30 =cut
    31 
    32 #################### subroutine header end ####################
    33 
     10use Data::Validate::URI qw( is_uri );
     11use Params::Validate qw( validate SCALAR );
    3412
    3513sub new
    3614{
    37     my ($class, %parameters) = @_;
     15    my $class = shift;
     16   
     17    my %p = validate(@_,
     18        {
     19            base_url => {
     20                type    => SCALAR,
     21                callbacks => {
     22                    'is valid url' => sub { is_uri( $_[0] ) },
     23                },
     24            },
     25        },
     26    );
    3827
    3928    my $self = bless ({}, ref ($class) || $class);
    … …  
    4231}
    4332
     331;
    4434
    45 #################### main pod documentation begin ###################
    46 ## Below is the stub of documentation for your module.
    47 ## You better edit it!
    48 
    49 
    50 =head1 NAME
    51 
    52 PS::IPP::PSFTP - Module abstract (<= 44 characters) goes here
    53 
    54 =head1 SYNOPSIS
    55 
    56   use PS::IPP::PSFTP;
    57   blah blah blah
    58 
    59 
    60 =head1 DESCRIPTION
    61 
    62 Stub documentation for this module was created by ExtUtils::ModuleMaker.
    63 It looks like the author of the extension was negligent enough
    64 to leave the stub unedited.
    65 
    66 Blah blah blah.
    67 
    68 
    69 =head1 USAGE
    70 
    71 
    72 
    73 =head1 BUGS
    74 
    75 
    76 
    77 =head1 SUPPORT
    78 
    79 
    80 
    81 =head1 AUTHOR
    82 
    83         A. U. Thor
    84         CPAN ID: MODAUTHOR
    85         XYZ Corp.
    86         a.u.thor@a.galaxy.far.far.away
    87         http://a.galaxy.far.far.away/modules
    88 
    89 =head1 COPYRIGHT
    90 
    91 This program is free software licensed under the...
    92 
    93         The General Public License (GPL)
    94         Version 2, June 1991
    95 
    96 The full text of the license can be found in the
    97 LICENSE file included with this module.
    98 
    99 
    100 =head1 SEE ALSO
    101 
    102 perl(1).
    103 
    104 =cut
    105 
    106 #################### main pod documentation end ###################
    107 
    108 
    109 1;
    110 # The preceding line will help the module return a true value
    111 
     35__END__
Note: See TracChangeset for help on using the changeset viewer.