"my sub" not yet implemented at /PerlApp/WWW/Myspace.pm line 1584

##</code><code>##

    ...
    # Save info if we need to
    unless ( $self->error ) {
        $self->$save_friend_info if  (
            ( ( $source eq '' ) || ( $source eq 'profile' ) ) &&
            ( $page == 1 ) );
    }

    return $res;
}

#---------------------------------------------------------------------

my sub save_friend_info {
...
}