File Coverage

blib/lib/Bio/Palantir/Roles/Domainable.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch	0	70	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	104	11.5

package Bio::Palantir::Roles::Domainable;
# ABSTRACT: Domainable Moose role for Domain and DomainPlus objects
$Bio::Palantir::Roles::Domainable::VERSION = '0.200700';
use Moose::Role;

use autodie;


requires qw(
    rank function chemistry
    protein_sequence begin
    end size coordinates
    monomer
);      # dna_* from gene_locations method (Domain.pm) create bugs because, as
        # there is no DNA sequence when doing protein analyses, no strand can
        # be determined in antismash 4 and 5 versions



sub symbol {
    my $self = shift;

    my $name = $self->function;

    return 'na' unless $name;

    my $symbol =
        $name =~ m/^ACL$ | ^CAL$/xms
        ? 'CAL'
        : $name =~ m/^A$ | AMP-binding/xms
        ? 'A'
        : $name =~ m/^PCP | PP-binding/xms
        ? 'PCP'
        : $name =~ m/^C$ | Condensation | ^X$ | Cglyc | Cter$/xms
        ? 'C'
        : $name =~ m/^E$ | Epimerization/xms
        ? 'E'
        : $name =~ m/^H$ | Heterocyclization/xms
        ? 'H'
        : $name =~ m/^TE$ | Thioesterase/xmsi
        ? 'TE'
        : $name =~ m/^Red$ | ^TD$ /xmsi
        ? 'Red'
        : $name =~ m/Aminotran/xms
        ? 'Amt'
        : $name =~ m/^PKS_/xms
        ? $name =~ s/PKS_//r
        : $name
    ;  # no need to reappoint domains like cMT, oMT, B, Hal,...

    # KS domain
    $symbol = $symbol =~ m/^KS/xms
        ? 'KS'
        : $symbol
    ;

    return $symbol;
}

sub class {
    my $self = shift;

    my $name = $self->function;

    return 'NA'
        if $name eq 'NA';

    my $class =
        $name =~ m/^A$ | AMP-binding | A-OX | Minowa | Khayatt | CAL | ACL
                        | AT$ | ^Trans\-AT/xms
        ? 'substrate-selection'
        : $name =~ m/PCP | ACP$ | ACP_beta | PP-binding/xms
        ? 'carrier-protein'
        : $name =~ m/^C$ | Condensation | ^X$ | Cglyc | ^KS | _KS
                        | Heterocyclization | ^H$/xms
        ? 'condensation'
        : $name =~ m/Thioesterase | TE | Red | TD | Cter | NAD/xms
        ? 'termination'
        : 'tailoring/other'
    ;

    return $class;
}

sub name {
    my $self = shift;

    my $name = $self->function;

    return 'na' unless $name;

    my $std_name =
        $name =~ m/^A$ | AMP-binding/xms
        ? 'Adenylation domain'
        : $name=~ m/A-OX/xms
        ? 'Adenylation domain with integrated oxidase'
        : $name =~ m/^PCP | PP-binding/xms
        ? 'Peptidyl Carrier Protein domain'
        : $name =~ m/^C$ | Condensation | ^X$ | Cglyc | Cter$/xms
        ? 'Condensation domain'
        : $name =~ m/^E$ | Epimerization/xms
        ? 'Epimerization domain'
        : $name =~ m/^H$ | Heterocyclization/xms
        ? 'Heterocyclization domain'
        : $name =~ m/^TE$ | Thioesterase/xmsi
        ? 'Thioesterase domain'
        : $name =~ m/^Red$ | ^TD$ /xmsi
        ? 'Terminal reductase domain'
        : $name =~ m/Aminotran/xms
        ? 'Aminotransferase domain'
        : $name =~ m/(?:PKS\_)?AT/xms
        ? 'Acyltransferase domain'
        : $name =~ m/(?:PKS\_)?ACP/xms
        ? 'Acyl Carrier Protein domain'
        : $name =~ m/(?:PKS\_)?KS/xms
        ? 'Ketosynthase domain'
        : $name =~ m/(?:PKS\_)?KR/xms
        ? 'Ketoreductase domain'
        : $name =~ m/(?:PKS\_)?DH/xms
        ? 'Dehydratase domain'
        : $name =~ m/(?:PKS\_)?ER/xms
        ? 'Enoylreductase domain'
        : $name =~ m/^ACL$ | ^CAL$/xms
        ? 'Co-enzyme A ligase domain'
        : $name =~ m/^MT$/xms
        ? 'Methyl transferase domain'
        : $name
    ;

    return $std_name;
}


no Moose::Role;
1;

__END__

=pod

=head1 NAME

Bio::Palantir::Roles::Domainable - Domainable Moose role for Domain and DomainPlus objects

=head1 VERSION

version 0.200700

=head1 SYNOPSIS

    # TODO

=head1 DESCRIPTION

    # TODO

=head1 AUTHOR

Loic MEUNIER <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by University of Liege / Unit of Eukaryotic Phylogenomics / Loic MEUNIER and Denis BAURAIN.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut