DBIx::Class::AsFdat - like CDBI::Plugin::AsFdat.

DBIx-Class-AsFdat documentation Contained in the DBIx-Class-AsFdat distribution.

Index

Code Index:

NAME

Top

DBIx::Class::AsFdat - like CDBI::Plugin::AsFdat.

SYNOPSIS

Top

    __PACKAGE__->load_components(qw/
        AsFdat
    /);

    my $ad = $self->model('Ad')->search(rid => $self->r->param('ad_rid'))->first;
    $self->fillin_form->fdat($ad->as_fdat);

DESCRIPTION

Top

This module like CDBI::Plugin::AsFdat.

METHODS

Top

as_fdat

    my $ad = $self->model('Ad')->search(rid => $self->r->param('ad_rid'))->first;
    $ad->as_fdat

BUGS AND LIMITATIONS

Top

No bugs have been reported.

AUTHOR

Top

Atsushi Kobayashi <atsushi __at__ mobilefactory.jp>

LICENCE AND COPYRIGHT

Top

Copyright (c) 2006, Atsushi Kobayashi <atsushi __at__ mobilefactory.jp>. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

DBIx-Class-AsFdat documentation Contained in the DBIx-Class-AsFdat distribution. 
package DBIx::Class::AsFdat;
use strict;
use warnings;
use base 'DBIx::Class';
use Scalar::Util qw/blessed/;

our $VERSION = '0.03';

sub as_fdat {
    my $self = shift;

    my $fdat;
    for my $column ($self->result_source->columns) {
        $fdat->{$column} = $self->$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;
            }
        }
    }
    return $fdat;
}

1;
__END__