← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/pan_genome_post_analysis
  Run on Fri Mar 27 11:43:32 2015
Reported on Fri Mar 27 11:45:27 2015

Filename/Users/ap13/perl5/lib/perl5/Bio/DescribableI.pm
StatementsExecuted 5 statements in 151µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11117µs35µsBio::DescribableI::::BEGIN@67Bio::DescribableI::BEGIN@67
11112µs89µsBio::DescribableI::::BEGIN@70Bio::DescribableI::BEGIN@70
0000s0sBio::DescribableI::::descriptionBio::DescribableI::description
0000s0sBio::DescribableI::::display_nameBio::DescribableI::display_name
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
2#
3# This module is licensed under the same terms as Perl itself. You use,
4# modify, and redistribute it under the terms of the Perl Artistic License.
5#
6
7=head1 NAME
8
9Bio::DescribableI - interface for objects with human readable names and descriptions
10
11=head1 SYNOPSIS
12
13
14 # to test this is a describable object
15
16 $obj->isa("Bio::DescribableI") ||
17 $obj->throw("$obj does not implement the Bio::DescribableI interface");
18
19 # accessors
20
21 $name = $obj->display_name();
22 $desc = $obj->description();
23
- -
26=head1 DESCRIPTION
27
28This interface describes methods expected on describable objects, ie
29ones which have human displayable names and descriptions
30
31=head1 FEEDBACK
32
33=head2 Mailing Lists
34
35User feedback is an integral part of the evolution of this and other
36Bioperl modules. Send your comments and suggestions preferably to one
37of the Bioperl mailing lists. Your participation is much appreciated.
38
39 bioperl-l@bioperl.org - General discussion
40 http://bioperl.org/wiki/Mailing_lists - About the mailing lists
41
42=head2 Support
43
44Please direct usage questions or support issues to the mailing list:
45
46I<bioperl-l@bioperl.org>
47
48rather than to the module maintainer directly. Many experienced and
49reponsive experts will be able look at the problem and quickly
50address it. Please include a thorough description of the problem
51with code and data examples if at all possible.
52
53=head2 Reporting Bugs
54
55Report bugs to the Bioperl bug tracking system to help us keep track
56the bugs and their resolution. Bug reports can be submitted via the web:
57
58 https://github.com/bioperl/bioperl-live/issues
59
60=head1 AUTHOR - Ewan Birney
61
62Email birney@sanger.ac.uk
63
64=cut
65
66package Bio::DescribableI;
67236µs253µs
# spent 35µs (17+18) within Bio::DescribableI::BEGIN@67 which was called: # once (17µs+18µs) by base::import at line 67
use strict;
# spent 35µs making 1 call to Bio::DescribableI::BEGIN@67 # spent 18µs making 1 call to strict::import
68
69
702112µs289µs
# spent 89µs (12+78) within Bio::DescribableI::BEGIN@70 which was called: # once (12µs+78µs) by base::import at line 70
use base qw(Bio::Root::RootI);
# spent 89µs making 1 call to Bio::DescribableI::BEGIN@70 # spent 78µs making 1 call to base::import, recursion: max depth 2, sum of overlapping time 78µs
71
72=head1 Implementation Specific Functions
73
74These functions are the ones that a specific implementation must
75define.
76
77=head2 display_name
78
79 Title : display_name
80 Usage : $string = $obj->display_name()
81 Function: A string which is what should be displayed to the user
82 the string should have no spaces (ideally, though a cautious
83 user of this interface would not assumme this) and should be
84 less than thirty characters (though again, double checking
85 this is a good idea)
86 Returns : A scalar
87 Status : Virtual
88
89=cut
90
91sub display_name {
92 my ($self) = @_;
93 $self->throw_not_implemented();
94}
95
96
97=head2 description
98
99 Title : description
100 Usage : $string = $obj->description()
101 Function: A text string suitable for displaying to the user a
102 description. This string is likely to have spaces, but
103 should not have any newlines or formatting - just plain
104 text. The string should not be greater than 255 characters
105 and clients can feel justified at truncating strings at 255
106 characters for the purposes of display
107 Returns : A scalar
108 Status : Virtual
109
110=cut
111
112sub description {
113 my ($self) = @_;
114 $self->throw_not_implemented();
115}
116
11713µs1;