NAME

MOP4Import::Declare::Type - inner-type related pragmas

SYNOPSIS

package MyApp;
use MOP4Import::Types
  BaseUser => [
    [fields => qw/sessid/],
    [subtypes =>
      Guest => [],
      RegisteredUser => [[fields => qw/uid registered_at/]],
   ]
  ],
  AdminUser => [
    [extends => 'RegisteredUser'],
    [fields => qw/impersonation/],
  ],
  ;

DESCRIPTION

This module implements inner-type related pragmas. Usually used via MOP4Import::Types.

PRAGMAS

[subtypes => ($typename => [@spec])...]

Declare multiple inner-types which are subtypes of currently-defining inner-type by $typename => [@spec] pair list.

[extends => $typename]

Set superclass for currently-defining inner-type to $typename.

(Internal) [type => $typename, @spec]

Declare inner-type $typename based on given @spec.

(Not recommended) [extend => $typename, @spec]

Declare extended version of $typename, which is inherited from parent class, based on given @spec.

AUTHOR

Kobayashi, Hiroaki <hkoba@cpan.org>

LICENSE

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