[Webfetch-commits] SF.net SVN: webfetch:[62] branches/v0.13/lib/WebFetch/Data

[<ik...@us...>]

Revision: 62
          http://webfetch.svn.sourceforge.net/webfetch/?rev=62&view=rev
Author:   ikluft
Date:     2009-09-14 23:20:26 +0000 (Mon, 14 Sep 2009)

Log Message:
-----------
streamline, add missing function

Modified Paths:
--------------
    branches/v0.13/lib/WebFetch/Data/Record.pm
    branches/v0.13/lib/WebFetch/Data/Store.pm

Modified: branches/v0.13/lib/WebFetch/Data/Record.pm
===================================================================
--- branches/v0.13/lib/WebFetch/Data/Record.pm	2009-09-14 23:19:20 UTC (rev 61)
+++ branches/v0.13/lib/WebFetch/Data/Record.pm	2009-09-14 23:20:26 UTC (rev 62)
@@ -30,9 +30,9 @@
 
 =head1 SYNOPSIS
 
-C<use WebFetch::Data::Record;
+C<use WebFetch::Data::Record;>
 
-WebFetch::Data::Record->mk_field_accessor( $field_name, ... );
+C<WebFetch::Data::Record->mk_field_accessor( $field_name, ... );
 $value = $obj-E<gt>bynum( $num );
 $value = $obj->fieldname;
 $obj->fieldname( $value );
@@ -74,7 +74,7 @@
 }
 
 # shortcut function to top-level WebFetch object data
-sub data { return $_[0]->{obj}->data; }
+sub data { return $_[0]->{obj}; }
 
 =item $value = $obj->bynum( $field_num );
 
@@ -88,11 +88,34 @@
 {
 	my $self = shift;
 	my $f = shift;
-	my $num = $self->{num};
 
+	WebFetch::debug "bynum $f";
 	return $self->{recref}[$f];
 }
 
+=item $value = $obj->byname( $field_name );
+
+Returns the value of the named field.
+
+=cut
+
+# get a field by name
+sub byname
+{
+	my $self = shift;
+	my $fname = shift;
+	my $obj = $self->{obj};
+	my $f;
+
+	WebFetch::debug "byname ".(( defined $fname ) ? $fname : "undef");
+	( defined $fname ) or return undef;
+	if ( exists $obj->{findex}{$fname}) {
+		$f = $obj->{findex}{$fname};
+		return $self->{recref}[$f];
+	}
+	return undef;
+}
+
 =item $class->mk_field_accessor( $field_name, ... );
 
 Creates accessor functions for each field name provided.

Modified: branches/v0.13/lib/WebFetch/Data/Store.pm
===================================================================
--- branches/v0.13/lib/WebFetch/Data/Store.pm	2009-09-14 23:19:20 UTC (rev 61)
+++ branches/v0.13/lib/WebFetch/Data/Store.pm	2009-09-14 23:20:26 UTC (rev 62)
@@ -33,9 +33,9 @@
 
 =head1 SYNOPSIS
 
-C<use WebFetch::Data::Store;
+C<use WebFetch::Data::Store;>
 
-$data = webfetch_obj-E<gt>data;
+C<$data = webfetch_obj-E<gt>data;
 $data-E<gt>add_fields( "field1", "field2", ... );
 $num = $data-E<gt>num_fields;
 @field_names = $data-E<gt>get_fields;
@@ -301,7 +301,8 @@
 # convert well-known name to field name
 sub wk2fname
 {
-	my ( $self, $wk ) = @_;
+	my $self = shift;
+	my $wk = shift;
 
 	WebFetch::debug "wk2fname $wk => ".(( exists $self->{wk_names}{$wk}) ? $self->{wk_names}{$wk} : "undef");
 	return ( exists $self->{wk_names}{$wk})
@@ -318,7 +319,8 @@
 # convert a field name to a field number
 sub fname2fnum
 {
-	my ( $self, $fname ) = @_;
+	my $self = shift;
+	my $fname = shift;
 
 	WebFetch::debug "fname2fnum $fname => ".(( exists $self->{findex}{$fname}) ? $self->{findex}{$fname} : "undef" );
 	return ( exists $self->{findex}{$fname})
@@ -335,7 +337,8 @@
 # convert well-known name to field number
 sub wk2fnum
 {
-	my ( $self, $wk ) = @_;
+	my $self = shift;
+	my $wk = shift;
 
 	WebFetch::debug "wk2fnum $wk => ".(( exists $self->{wkindex}{$wk}) ? $self->{wkindex}{$wk} : "undef" );
 	return ( exists $self->{wkindex}{$wk})


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.