Changeset 5253

Timestamp:

Oct 7, 2005, 4:09:05 PM (21 years ago)

Author:

jhoblitt

Message:

add Params::Validate

Location:

trunk/PS-IPP-PSFTP

Files:

• Build.PL (modified) (1 diff)
• lib/PS/IPP/PSFTP/Parser.pm (modified) (4 diffs)

trunk/PS-IPP-PSFTP/Build.PL

@@ -8 +8 @@
     license             => 'gpl',
     create_makefile_pl  => 'passthrough',
+    requires            => {
+        'Params::Validate'      => '0.77',
+    },
     build_requires      => {
         'Test::Warn'            => '0.08',

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

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.2 2005-10-08 01:20:12 jhoblitt Exp $
+# $Id: Parser.pm,v 1.3 2005-10-08 02:09:05 jhoblitt Exp $
 
 package PS::IPP::PSFTP::Parser;
@@ -8 +8 @@
 
 use Carp qw( carp );
+use Params::Validate qw( validate_pos SCALAR );
 
 use vars qw( @FIELDS @REQUIRED_FIELDS );
@@ -16 +17 @@
 sub new
 {
-    my ($class, %parameters) = @_;
+    my $class = shift;
 
-    my $self = bless ({}, ref ($class) || $class);
+    validate_pos(@_);
+
+    my $self = bless {}, ref ($class) || $class;
 
     return $self;
@@ -25 +28 @@
 sub parse
 {
-    my ($self, $doc) = @_;
+    my $self = shift;
+
+    my ($doc) = validate_pos(@_,
+        {
+            type    => SCALAR,
+            regex   => qr/\S+/, # string with atleast 1 non WS char
+        }
+    );
 
     # pack data into an HoH