diff options
author | David Phillips <david@sighup.nz> | 2018-04-10 15:20:24 +1200 |
---|---|---|
committer | David Phillips <david@sighup.nz> | 2018-04-10 15:20:24 +1200 |
commit | cd1fc57841deab0e9b8bcfad49d527c6b263534c (patch) | |
tree | 83bc8874a4b6970e0850f9aaca3a8c801bce293c /plugin/map.pm | |
parent | bb1808b1ef92af9a14a073f2e14973ac132b7e7e (diff) | |
download | idalius-cd1fc57841deab0e9b8bcfad49d527c6b263534c.tar.xz |
Correct capitalisation on module names
Diffstat (limited to 'plugin/map.pm')
-rw-r--r-- | plugin/map.pm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/plugin/map.pm b/plugin/map.pm deleted file mode 100644 index f8cb256..0000000 --- a/plugin/map.pm +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/env perl - -package plugin::map; - -use strict; -use warnings; - -my %config; -my $run_command; - - -sub configure { - my $self = shift; - my $cmdref = shift; - my $cref = shift; - %config = %$cref; - $run_command = shift; - - $cmdref->("map", sub { $self->map(@_); } ); - - return $self; -} - -sub map { - my ($self, $logger, $who, $where, $rest, @arguments) = @_; - my ($command, $subjects) = ($rest =~ /^(.+?)\s+(.*)$/); - - return "[]" unless $subjects; - - my @array = map { $run_command->("$command $_", $who, $where) } (split /,/, $subjects); - - return "[" . (join ", ", @array). "]"; -} -1; |