Help for this page

Select Code to Download


  1. or download this
    define givenName {
        my $self = shift;
        $self->{_givenName} = shift if @_;
        return $self->{_givenName};
    };
    
  2. or download this
    sub givenName { 
        $_[0]->{_givenName} = $_[1] if @_>1;
        $_[0]->{_givenName};
    };