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
3cdb7a0d
Commit
3cdb7a0d
authored
Mar 14, 2008
by
Andreas Kusalananda Kähäri
Browse files
Add named argument '-lightweight' to fetch_bins_by_slice().
parent
1b10656c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
4 deletions
+11
-4
modules/Bio/EnsEMBL/Collection.pm
modules/Bio/EnsEMBL/Collection.pm
+11
-4
No files found.
modules/Bio/EnsEMBL/Collection.pm
View file @
3cdb7a0d
...
...
@@ -19,11 +19,17 @@ use constant { FEATURE_DBID => 0,
sub
fetch_bins_by_Slice
{
my
$this
=
shift
;
my
(
$slice
,
$method
,
$nbins
,
$logic_name
)
=
rearrange
(
[
'
SLICE
',
'
METHOD
',
'
NBINS
',
'
LOGIC_NAME
'
],
@
_
);
my
(
$slice
,
$method
,
$nbins
,
$logic_name
,
$lightweight
)
=
rearrange
(
[
'
SLICE
',
'
METHOD
',
'
NBINS
',
'
LOGIC_NAME
',
'
LIGHTWEIGHT
'
],
@
_
);
# Temporarily set the colleciton to be lightweight.
my
$old_value
=
$this
->
_lightweight
();
$this
->
_lightweight
(
1
);
if
(
defined
(
$lightweight
)
)
{
$this
->
_lightweight
(
$lightweight
)
}
else
{
$this
->
_lightweight
(
1
)
}
my
$bins
=
$this
->
_bin_features
(
-
slice
=>
$slice
,
...
...
@@ -34,6 +40,7 @@ sub fetch_bins_by_Slice {
$slice
,
undef
,
$logic_name
)
);
# Reset the lightweightness to whatever it was before.
$this
->
_lightweight
(
$old_value
);
return
$bins
;
...
...
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