The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

NAME

MooseX::Attribute::Deflator::Meta::Role::Attribute - Attribute meta role to support deflation

VERSION

version 2.2.2

SYNOPSIS

package Test;
use Moose;
deflate 'DateTime', via { $_->epoch };
inflate 'DateTime', via { DateTime->from_epoch( epoch => $_ ) };
no MooseX::Attribute::Deflator;
has now => ( is => 'rw',
isa => 'DateTime',
required => 1,
default => sub { DateTime->now },
traits => ['Deflator'] );
package main;
my $obj = Test->new;
my $attr = $obj->meta->get_attribute('now');
my $deflated = $attr->deflate($obj);
# $deflated is now a number
my inflated = $attr->inflate($obj, $deflated);
# $inflated is now a DateTime object

METHODS

These two methods work basically the same. They look up the type constraint which is associated with the attribute and try to find an appropriate deflator/inflator. If there is no deflator/inflator for the exact type constraint, the method will bubble up the type constraint hierarchy until it finds one.

$attr->deflate($instance)

Returns the deflated value of the attribute. It does not change the value of the attribute.

$attr->inflate($instance, $string)

Inflates a string $string. This method does not set the value of the attribute to the inflated value.

$attr->has_inflator =item $attr->has_deflator

AUTHOR

Moritz Onken

COPYRIGHT AND LICENSE

This software is Copyright (c) 2012 by Moritz Onken.

This is free software, licensed under:

The (three-clause) BSD License