Help for this page

Select Code to Download


  1. or download this
    package Class::Trait::TGetter;
    
    ...
    }
    
    1;
    
  2. or download this
    package Class::Trait::TSetter;
    
    ...
    }
    
    1;
    
  3. or download this
    package GetterSetter;
    
    ...
    }
    
    1;
    
  4. or download this
    package Person;
    
    ...
        # return GetterSetter without validation
        return GetterSetter->new($self, "name");;
    }
    
  5. or download this
    use Person;
    
    ...
        print $p->name->get, ", ", $p->age->get, "\n";
    };
    print $@;