[libcatmandu-perl] 06/85: Deleted global binds

[Jonas Smedegaard]

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.hochstenbach at 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