This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.91 in repository libcatmandu-perl.
commit 43b9f87ffed351027fe5a66a2350d0e8f2f1f26a Author: Patrick Hochstenbach <patrick.hochstenb...@ugent.be> Date: Thu May 8 07:33:45 2014 +0200 Deleted global binds --- lib/Catmandu/Fix.pm | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/lib/Catmandu/Fix.pm b/lib/Catmandu/Fix.pm index 5d8c66c..fc3230b 100644 --- a/lib/Catmandu/Fix.pm +++ b/lib/Catmandu/Fix.pm @@ -25,7 +25,6 @@ has _num_vars => (is => 'rw', lazy => 1, init_arg => undef, default => sub { 0 has _captures => (is => 'ro', lazy => 1, init_arg => undef, default => sub { +{}; }); has var => (is => 'ro', lazy => 1, init_arg => undef, builder => 'generate_var'); has fixes => (is => 'ro', required => 1, trigger => 1); -has binds => (is => 'ro'); has binder => (is => 'rw'); has _reject => (is => 'ro', init_arg => undef, default => sub { +{} }); has _reject_var => (is => 'ro', lazy => 1, init_arg => undef, builder => '_build_reject_var'); @@ -59,26 +58,6 @@ sub _build_reject_var { $self->capture($self->_reject); } -sub _build_binder { - my ($self) = @_; - - return undef unless $self->binds; - - my @real_binds = (); - - for my $bind (@{$self->binds}) { - if (is_instance($bind)) { - push @real_binds , $bind; - } - elsif (is_string($bind)) { - my $instance = require_package($bind,'Catmandu::Fix::Bind')->new; - push @real_binds , $instance; - } - } - - \@real_binds; -} - sub fix { my ($self, $data) = @_; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits