[tmcode commit] r316 - spine/branches/spine_2_2-devel/lib/Spine

[oss...@gmail.com]

Author: richard
Date: Tue Mar 30 08:29:49 2010
New Revision: 316

Log:
small cleanup of unused code

Modified:
spine/branches/spine_2_2-devel/lib/Spine/Chain.pm

Modified: spine/branches/spine_2_2-devel/lib/Spine/Chain.pm
==============================================================================
--- spine/branches/spine_2_2-devel/lib/Spine/Chain.pm Tue Mar 30 08:28:15 2010 (r315)
+++ spine/branches/spine_2_2-devel/lib/Spine/Chain.pm Tue Mar 30 08:29:49 2010 (r316)
@@ -23,7 +23,7 @@
#
# It supports
# provides - things that the item provides (own name is autmatically added)
-# requires - things that the item requires (it will error if it is missing)
+# requires - things that the item requires (it will error if it is missing)
# precedes - things that the item comes before
# succedes - things that the item comes after
#
@@ -63,8 +63,6 @@
# clean is used to note when the order needs to be rebuilt
my $self = { chain => [],
lookup => {},
- prov_lookup => {},
- provreq_lookup => {},
prov_rules => {},
lasterr => undef,
settings => \%settings, };
@@ -126,7 +124,6 @@
$self->_merge( $item, $name );
}
}
-
# If the items hasn't been stored yet then its
# time to store our item, make it easy to find it again.
unless ( exists $self->{lookup}->{$name} ) {
@@ -220,7 +217,6 @@
# FIXME, this has never been tested!
sub remove {
my ( $self, $name ) = @_;
-
# note that we will need to resort the chain
$self->{clean} = undef;
if ( exists $self->{lookup}->{$name} ) {
@@ -585,4 +581,5 @@
}
return $head;
}
+
1;