diff options
author | ivan <ivan> | 2005-02-05 23:39:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-02-05 23:39:43 +0000 |
commit | 85b4db91819ef43709a7d9728af3a7f1aa37b07a (patch) | |
tree | eb52da5e159b180ae4c328804e745647fb114f15 /FS/FS/ClientAPI.pm | |
parent | a06550f5269b610009cf89b3698eed2bd13be261 (diff) |
remove unnecessary complication from ClientAPI dispatch foo
Diffstat (limited to 'FS/FS/ClientAPI.pm')
-rw-r--r-- | FS/FS/ClientAPI.pm | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/FS/FS/ClientAPI.pm b/FS/FS/ClientAPI.pm index 1109ede..902f58b 100644 --- a/FS/FS/ClientAPI.pm +++ b/FS/FS/ClientAPI.pm @@ -3,7 +3,7 @@ package FS::ClientAPI; use strict; use vars qw(%handler $domain $DEBUG); -$DEBUG = 1; +$DEBUG = 0; %handler = (); @@ -23,24 +23,13 @@ foreach my $INC ( @INC ) { } } -#(sub for modules) -sub register_handlers { - my $self = shift; - my %new_handlers = @_; - foreach my $key ( keys %new_handlers ) { - warn "WARNING: redefining sub $key" if exists $handler{$key}; - #warn "registering $key"; - $handler{$key} = $new_handlers{$key}; - } -} - #--- sub dispatch { my ( $self, $name ) = ( shift, shift ); - my $sub = $handler{$name} - or die "unknown FS::ClientAPI sub $name (known: ". join(" ", keys %handler ); - #or die "unknown FS::ClientAPI sub $name"; + $name =~ s(/)(::)g; + my $sub = "FS::ClientAPI::$name"; + no strict 'refs'; &{$sub}(@_); } |