/usr/share/perl5/Genome/Model/Tools/Music/Base.pm is in libgenome-model-tools-music-perl 0.04-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | package Genome::Model::Tools::Music::Base;
use strict;
use warnings;
use Genome;
our $VERSION = $Genome::Model::Tools::Music::VERSION;
class Genome::Model::Tools::Music::Base {
is => ['Command::V2'],
is_abstract => 1,
attributes_have => [
file_format => {
is => 'Text',
is_optional => 1,
}
],
doc => "Mutational Significance In Cancer (Cancer Mutation Analysis)"
};
sub _doc_copyright_years {
(2010,2011);
}
sub _doc_license {
my $self = shift;
my (@y) = $self->_doc_copyright_years;
return <<EOS
Copyright (C) $y[0]-$y[1] Washington University in St. Louis.
It is released under the Lesser GNU Public License (LGPL) version 3. See the
associated LICENSE file in this distribution.
EOS
}
sub _doc_authors {
return <<EOS
Nathan D. Dees, Ph.D.
Cyriac Kandoth, Ph.D.
Dan Koboldt, M.S.
William Schierding, M.S.
Michael Wendl, Ph.D.
Qunyuan Zhang, Ph.D.
Thomas B. Mooney, M.S.
EOS
}
=cut
sub _doc_credits {
return ('','None at this time.');
}
=cut
sub _doc_see_also {
return <<EOS
B<genome-music>(1), B<genome>(1)
EOS
}
sub _doc_manual_body {
my $help = shift->help_detail;
$help =~ s/\n+$/\n/g;
return $help;
}
sub help_detail {
return "This tool is part of the MuSiC suite. See:\n"
. join("\n",shift->_doc_see_also)
. "\n";
}
1;
|