Coat::Persistent::Types::MySQL - Attribute types and coercions for MySQL data types

Coat-Persistent documentation Contained in the Coat-Persistent distribution.

Index

Code Index:

NAME

Top

Coat::Persistent::Types::MySQL -- Attribute types and coercions for MySQL data types

DESCRIPTION

Top

The types defined in this module are here to provide simple and transparent storage of MySQL data types. This is done for atttributes you want to store with a different value than the one the object has.

For instance, if you have a datetime field, you may want to store it as a MySQL "datetime" format (YYYY-MM-DD HH:MM:SS) and handle it in your code as a timestamp, which is much more convinient for updates.

This is possible by using the types defined in this module.

EXAMPLE

Top

We have a 'created_at' attribute, we want to handle it as a timestamp and store it as a MySQL datetime field.

    use Coat::Persistent::Types::MySQL;

    has_p 'created_at' => (
        is => 'rw',
        isa => 'Int', 
        store_as => 'MySQL:DateTime, 
    );

Then, whenever a value that validates the MySQL:DateTime format is assigned to that field, it will be coerced to an Int. On the other hand, whenever an entry has to be saved, the value used for storage will be the result of a coercion from Int to MySQL:DateTime.

TYPES

Top

The following types are provided by this module

MySQL:DateTime : YYYY-MM-DD HH:MM:SS
MySQL:Date : YYYY-MM-DD

SEE ALSO

Top

Coat::Types, Coat::Persistent

AUTHOR

Top

Alexis Sukrieh <sukria@cpan.org>

Coat-Persistent documentation Contained in the Coat-Persistent distribution. 
package Coat::Persistent::Types::MySQL;

# MySQL types usable in has_p definitions 
# (either for isa or for store_as)

use strict;
use warnings;

use Coat::Types;
use Coat::Persistent::Types;
use Class::Date;

# datetime' 

subtype 'MySQL:DateTime'
    => as 'Str'
    => where { /^\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d$/ };

coerce 'MySQL:DateTime'
    => from 'UnixTimestamp'
    => via { Class::Date->new($_)->string };

coerce 'UnixTimestamp'
    => from 'MySQL:DateTime'
    => via { $_->epoch };

# date

subtype 'MySQL:Date'
    => as 'Str'
    => where { /^\d{4}-\d\d-\d\d$/ };

coerce 'MySQL:Date'
    => from 'UnixTimestamp'
    => via { 
        my $date = Class::Date->new($_);
        my $str = $date->ymd;
        $str =~ s/\//-/g;
        return $str;
    };

coerce 'UnixTimestamp'
    => from 'MySQL:Date'
    => via { Class::Date->new($_)->epoch };

1;
__END__