The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Mojo::Base - Minimal base class for Mojo projects

SYNOPSIS

package Cat;
use Mojo::Base -base;

has 'mouse';
has paws => 4;
has [qw/ears eyes/] => 2;

package Tiger;
use Mojo::Base 'Cat';

has stripes => 42;

package main;

my $mew = Cat->new(mouse => 'Mickey');
say $mew->paws;
say $mew->paws(5)->paws;

my $rawr = Tiger->new(stripes => 23);
say $rawr->ears * $rawr->stripes;

DESCRIPTION

Mojo::Base is a simple base class for Mojo projects.

# Automatically enables "strict", "warnings" and Perl 5.10 features
use Mojo::Base -strict;
use Mojo::Base -base;
use Mojo::Base 'SomeBaseClass';

All three forms save a lot of typing.

# use Mojo::Base -strict;
use strict;
use warnings;
use feature ':5.10';

# use Mojo::Base -base;
use strict;
use warnings;
use feature ':5.10';
use Mojo::Base;
push @ISA, 'Mojo::Base';
sub has { Mojo::Base::attr(__PACKAGE__, @_) }

# use Mojo::Base 'SomeBaseClass';
use strict;
use warnings;
use feature ':5.10';
require SomeBaseClass;
push @ISA, 'SomeBaseClass';
use Mojo::Base;
sub has { Mojo::Base::attr(__PACKAGE__, @_) }

FUNCTIONS

Mojo::Base exports the following functions if imported with the -base flag or a base class.

has

has 'name';
has [qw/name1 name2 name3/];
has name => 'foo';
has name => sub {...};
has [qw/name1 name2 name3/] => 'foo';
has [qw/name1 name2 name3/] => sub {...};

Create attributes, just like the attr method.

METHODS

Mojo::Base implements the following methods.

new

my $object = BaseSubClass->new;
my $object = BaseSubClass->new(name => 'value');
my $object = BaseSubClass->new({name => 'value'});

This base class provides a basic object constructor. You can pass it either a hash or a hash reference with attribute values.

attr

$object->attr('name');
BaseSubClass->attr('name');
BaseSubClass->attr([qw/name1 name2 name3/]);
BaseSubClass->attr(name => 'foo');
BaseSubClass->attr(name => sub {...});
BaseSubClass->attr([qw/name1 name2 name3/] => 'foo');
BaseSubClass->attr([qw/name1 name2 name3/] => sub {...});

Create attributes. An array reference can be used to create more than one attribute. Pass an optional second argument to set a default value, it should be a constant or a sub reference. The sub reference will be excuted at accessor read time if there's no set value.

DEBUGGING

You can set the MOJO_BASE_DEBUG environment variable to get some advanced diagnostics information printed to STDERR.

MOJO_BASE_DEBUG=1

SEE ALSO

Mojolicious, Mojolicious::Guides, http://mojolicio.us.