NAME

Data::Object::Role::Buildable

ABSTRACT

Buildable Role for Perl 5

SYNOPSIS

package Vehicle;

use Moo;

with 'Data::Object::Role::Buildable';

has name => (
  is => 'rw'
);

1;

DESCRIPTION

This package provides methods for hooking into object construction of the consuming class, e.g. handling single-arg object construction.

SCENARIOS

This package supports the following scenarios:

buildarg

package Car;

use Moo;

extends 'Vehicle';

sub build_arg {
  my ($class, $name) = @_;

  # do something with $name or $class ...

  return { name => $name };
}

package main;

my $car = Car->new('tesla');

This package supports handling a build_arg method, as a hook into object construction, which is called and passed a single argument if a single argument is passed to the constructor.

buildargs

package Sedan;

use Moo;

extends 'Car';

sub build_args {
  my ($class, $args) = @_;

  # do something with $args or $class ...

  $args->{name} = ucfirst $args->{name};

  return $args;
}

package main;

my $sedan = Sedan->new('tesla');

This package supports handling a build_args method, as a hook into object construction, which is called and passed a hashref during object construction.

buildself

package Taxicab;

use Moo;

extends 'Sedan';

sub build_self {
  my ($self, $args) = @_;

  # do something with $self or $args ...

  $args->{name} = 'Toyota';

  return;
}

package main;

my $taxicab = Taxicab->new('tesla');

This package supports handling a build_self method, as a hook into object construction, which is called and passed a hashref during object construction. Note: Manipulating the arguments doesn't effect object's construction or properties.

AUTHOR

Al Newkirk, awncorp@cpan.org

LICENSE

Copyright (C) 2011-2019, Al Newkirk, et al.

This is free software; you can redistribute it and/or modify it under the terms of the The Apache License, Version 2.0, as elucidated in the "license file".

PROJECT

Wiki

Project

Initiatives

Milestones

Contributing

Issues