Changeset 13864 for lang/perl/Class-DBI-Plugin-AsFdat

Timestamp:

06/14/08 14:17:06 (5 years ago)

Author:

tokuhirom

Message:

use exporter.

Location:

lang/perl/Class-DBI-Plugin-AsFdat/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Class/DBI/Plugin/AsFdat.pm (modified) (2 diffs)

lang/perl/Class-DBI-Plugin-AsFdat/trunk/Makefile.PL

@@ -6 +6 @@
 requires 'Class::DBI'      => '3.0.11';
 requires 'DateTime'        => 0.2901;
+requires 'Exporter'        => 5.62;
 
 test_requires 'Test::More';

lang/perl/Class-DBI-Plugin-AsFdat/trunk/lib/Class/DBI/Plugin/AsFdat.pm

@@ -3 +3 @@
 use warnings;
 our $VERSION = '0.02';
+use Exporter 'import';
 use Scalar::Util qw/blessed/;
 
-sub import {
-    my $class = shift;
-    my $pkg   = caller(0);
+our @EXPORT = qw(as_fdat);
 
-    no strict 'refs';
-    *{"$pkg\::as_fdat"} = sub {
-        my $self = shift;
+sub as_fdat {
+    my $self = shift;
 
-        my $fdat;
-        for my $column ($self->columns) {
-            $fdat->{$column} = $self->get($column);
+    my $fdat;
+    for my $column ($self->columns) {
+        $fdat->{$column} = $self->get($column);
 
-            # inflate the datetime
-            if (blessed $fdat->{$column} and $fdat->{$column}->isa('DateTime')) {
-                for my $type (qw(year month day hour minute second)) {
-                    $fdat->{"${column}_$type"}  = $fdat->{$column}->$type;
-                }
+        # inflate the datetime
+        if (blessed $fdat->{$column} and $fdat->{$column}->isa('DateTime')) {
+            for my $type (qw(year month day hour minute second)) {
+                $fdat->{"${column}_$type"}  = $fdat->{$column}->$type;
             }
         }
-        return $fdat;
-    };
+    }
+    return $fdat;
 }
 
@@ -52 +49 @@
 `fdat' is data for HTML::FillInForm.
 
+=head1 METHODS
+
+=over 4
+
+=item as_fdat
+
+transform cdbi row instance to hashref.
+
+=back
+
 =head1 AUTHOR