Help for this page

Select Code to Download


  1. or download this
    package mObject_T;
use Moose; # automatically turns on strict and warnings
has '_logicErrors' => (is => 'rw', isa => 'Str');
...
  2. or download this
    package mSomeObject_T;
extends mObject_T;
...
  3. or download this
    contract('checkName')
    ->in(is_a("mName_T"),
        is_a("mObject_T"))
    ->enable;
  4. or download this
    my $obj = new mSomeObject_T;
checkName($nameObj, $obj);