Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
ensembl-gh-mirror
ensembl
Commits
e6e6158e
Commit
e6e6158e
authored
Feb 19, 2008
by
Andreas Kusalananda Kähäri
Browse files
Slight speed increase from not creating new anonymous arrays.
parent
da0d1d94
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
8 deletions
+7
-8
modules/Bio/EnsEMBL/Collection/RepeatFeature.pm
modules/Bio/EnsEMBL/Collection/RepeatFeature.pm
+7
-8
No files found.
modules/Bio/EnsEMBL/Collection/RepeatFeature.pm
View file @
e6e6158e
...
...
@@ -14,8 +14,7 @@ use base( 'Bio::EnsEMBL::Collection',
sub
_create_feature
{
my
(
$this
,
$feature_type
,
$args
)
=
@_
;
my
@feature
=
@
{
$this
->
SUPER::
_create_feature
(
$feature_type
,
$args
)
};
my
$feature
=
$this
->
SUPER::
_create_feature
(
$feature_type
,
$args
);
my
(
$hstart
,
$hend
,
$score
,
$repeat_consensus
,
$analysis
)
=
rearrange
(
[
'
HSTART
',
'
HEND
',
...
...
@@ -24,25 +23,25 @@ sub _create_feature {
],
@
{
$args
}
);
push
(
@feature
,
push
(
@
{
$
feature
}
,
$hstart
,
$hend
,
$score
,
$repeat_consensus
->
dbID
(),
$analysis
->
dbID
()
);
return
\
@
feature
;
return
$
feature
;
}
sub
_create_feature_fast
{
my
(
$this
,
$feature_type
,
$args
)
=
@_
;
my
@
feature
=
@
{
$this
->
SUPER::
_create_feature_fast
(
$feature_type
,
$args
)
}
;
my
$
feature
=
$this
->
SUPER::
_create_feature_fast
(
$feature_type
,
$args
);
push
(
@feature
,
push
(
@
{
$
feature
}
,
$args
->
{'
hstart
'},
$args
->
{'
hend
'},
$args
->
{'
score
'},
$args
->
{'
repeat_consensus
'}
->
dbID
(),
$args
->
{'
analysis
'}
->
dbID
()
);
return
\
@
feature
;
return
$
feature
;
}
1
;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment