use warnings;
use strict;
+use 5.008001;
-our $VERSION = '0.02001';
+our $VERSION = '0.02003';
use base qw/DBIx::Class/;
__PACKAGE__->mk_classdata(ip_format => 'addr');
__PACKAGE__->mk_classdata(ip_class => 'NetAddr::IP');
+=encoding utf-8
+
=head1 NAME
DBIx::Class::InflateColumn::IP - Auto-create NetAddr::IP objects from columns.
__PACKAGE__->load_components(qw/InflateColumn::IP Core/);
__PACKAGE__->add_columns(
ip_address => {
- data_type => 'integer',
+ data_type => 'bigint',
is_nullable => 0,
is_ip => 1,
ip_format => 'numeric',
DBIx::Class::InflateColumn::IP supports a limited amount of
auto-detection of the format based on the column type. If the type
-begins with C<int>, it's assumed to be numeric, while C<inet> and
-C<cidr> (as used by e.g. PostgreSQL) are assumed to be C<cidr> format.
+begins with C<int> or C<bigint>, it's assumed to be numeric, while
+C<inet> and C<cidr> (as used by e.g. PostgreSQL) are assumed to be
+C<cidr> format.
=head1 METHODS
}
my @format_map = (
- { type => qr/^int/i, format => 'numeric' },
+ { type => qr/^(?:big)?int/i, format => 'numeric' },
{ type => qr{^(?:inet|cidr)$}i, format => 'cidr' },
);
=head1 AUTHOR
-Dagfinn Ilmari Mannsåker, C<< <ilmari at ilmari.org> >>
+Dagfinn Ilmari Mannsåker, C<< <ilmari at ilmari.org> >>
=head1 BUGS
=head1 COPYRIGHT & LICENSE
-Copyright 2007 Dagfinn Ilmari Mannsåker, all rights reserved.
+Copyright 2007 Dagfinn Ilmari Mannsåker, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.