[Bast-commits] r3375 - trunk/DBIx-Class-InflateColumn-IP/lib/DBIx/Class/InflateColumn

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2007-05-25 03:02:23 +0100 (Fri, 25 May 2007)
New Revision: 3375

Modified:
   trunk/DBIx-Class-InflateColumn-IP/lib/DBIx/Class/InflateColumn/IP.pm
Log:
Set default values in the class data declaration


Modified: trunk/DBIx-Class-InflateColumn-IP/lib/DBIx/Class/InflateColumn/IP.pm
===================================================================
--- trunk/DBIx-Class-InflateColumn-IP/lib/DBIx/Class/InflateColumn/IP.pm	2007-05-25 00:09:59 UTC (rev 3374)
+++ trunk/DBIx-Class-InflateColumn-IP/lib/DBIx/Class/InflateColumn/IP.pm	2007-05-25 02:02:23 UTC (rev 3375)
@@ -6,12 +6,9 @@
 our $VERSION = '0.01001';
 
 use base qw/DBIx::Class/;
-__PACKAGE__->mk_classdata('ip_format');
-__PACKAGE__->mk_classdata('ip_class');
+__PACKAGE__->mk_classdata(ip_format => 'addr');
+__PACKAGE__->mk_classdata(ip_class  => 'NetAddr::IP');
 
-__PACKAGE__->ip_format('addr');
-__PACKAGE__->ip_class('NetAddr::IP');
-
 =head1 NAME
 
 DBIx::Class::InflateColumn::IP - Auto-create NetAddr::IP objects from columns.