view release on metacpan or  search on metacpan

lib/Convert/Pheno/BFF/ToPXF.pm  view on Meta::CPAN

#                occurrence => { timestamp => $_->{date} }
#            }
#        } @{ $bff->{exposures} }
#      ]
#      if exists $bff->{exposures};

    #######################################
    # END MAPPING TO PHENOPACKET V2 TERMS #
    #######################################

    _strip_private_keys($pxf);

    return $pxf;
}

sub _map_id {
    my ( $self, $bff, $pxf ) = @_;

    # ==
    # id
    # ==

lib/Convert/Pheno/BFF/ToPXF.pm  view on Meta::CPAN

        return [ map { _clone_data($_) } @{$data} ];
    }

    if ( blessed($data) && blessed($data) eq 'JSON::PP::Boolean' ) {
        return $data ? JSON::PP::true() : JSON::PP::false();
    }

    return $data;
}

sub _strip_private_keys {
    my ($data) = @_;
    return unless defined $data;

    if ( ref($data) eq 'HASH' ) {
        for my $key ( keys %{$data} ) {
            if ( $key =~ /^_/ ) {
                delete $data->{$key};
                next;
            }
            _strip_private_keys( $data->{$key} );
        }
        return;
    }

    if ( ref($data) eq 'ARRAY' ) {
        _strip_private_keys($_) for @{$data};
        return;
    }

    return;
}

sub _map_sex {
    my ($sex) = @_;
    return 'UNKNOWN_SEX' unless defined $sex;