has 'fif' => ( is => 'rw', reader => '_fif' ); sub fif { my $self = shift; return $self->_fif unless $self->password; } #### has 'fif' => ( reader => '_fif' ); sub fif { my $self = shift; return $self->_fif unless $self->password; }