[libcatmandu-perl] 13/16: rename
Jonas Smedegaard
dr at jones.dk
Thu Dec 4 14:43:17 UTC 2014
This is an automated email from the git hooks/post-receive script.
js pushed a commit to tag 0.9209
in repository libcatmandu-perl.
commit 4f84fb7fa50d4662ca54aaadfacd41ad51325b6b
Author: Nicolas Steenlant <nicolas.steenlant at ugent.be>
Date: Thu Dec 4 11:02:01 2014 +0100
rename
---
lib/Catmandu/Fix/{SimpleChangeValue.pm => SimpleGetValue.pm} | 6 +++---
lib/Catmandu/Fix/append.pm | 4 ++--
lib/Catmandu/Fix/array.pm | 4 ++--
lib/Catmandu/Fix/capitalize.pm | 4 ++--
lib/Catmandu/Fix/count.pm | 4 ++--
lib/Catmandu/Fix/downcase.pm | 4 ++--
lib/Catmandu/Fix/from_json.pm | 4 ++--
lib/Catmandu/Fix/hash.pm | 4 ++--
lib/Catmandu/Fix/join_field.pm | 4 ++--
lib/Catmandu/Fix/prepend.pm | 4 ++--
lib/Catmandu/Fix/replace_all.pm | 4 ++--
lib/Catmandu/Fix/trim.pm | 4 ++--
lib/Catmandu/Fix/upcase.pm | 4 ++--
13 files changed, 27 insertions(+), 27 deletions(-)
diff --git a/lib/Catmandu/Fix/SimpleChangeValue.pm b/lib/Catmandu/Fix/SimpleGetValue.pm
similarity index 75%
rename from lib/Catmandu/Fix/SimpleChangeValue.pm
rename to lib/Catmandu/Fix/SimpleGetValue.pm
index e53eaff..5d68419 100644
--- a/lib/Catmandu/Fix/SimpleChangeValue.pm
+++ b/lib/Catmandu/Fix/SimpleGetValue.pm
@@ -1,4 +1,4 @@
-package Catmandu::Fix::SimpleChangeValue;
+package Catmandu::Fix::SimpleGetValue;
use Catmandu::Sane;
use Moo::Role;
@@ -6,7 +6,7 @@ use Moo::Role;
with 'Catmandu::Fix::Base';
requires 'path';
-requires 'emit_change_value';
+requires 'emit_value';
sub emit {
my ($self, $fixer) = @_;
@@ -17,7 +17,7 @@ sub emit {
my $var = shift;
$fixer->emit_get_key($var, $key, sub {
my $var = shift;
- $self->emit_change_value($var, $fixer);
+ $self->emit_value($var, $fixer);
});
});
}
diff --git a/lib/Catmandu/Fix/append.pm b/lib/Catmandu/Fix/append.pm
index 8273bda..67ecbe0 100644
--- a/lib/Catmandu/Fix/append.pm
+++ b/lib/Catmandu/Fix/append.pm
@@ -7,9 +7,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has value => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var, $fixer) = @_;
my $value = $fixer->emit_string($self->value);
"${var} = join('', ${var}, $value) if is_value(${var});";
diff --git a/lib/Catmandu/Fix/array.pm b/lib/Catmandu/Fix/array.pm
index 16ebd71..38c40ca 100644
--- a/lib/Catmandu/Fix/array.pm
+++ b/lib/Catmandu/Fix/array.pm
@@ -6,9 +6,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
"if (is_hash_ref(${var})) {" .
"${var} = [\%{${var}}];" .
diff --git a/lib/Catmandu/Fix/capitalize.pm b/lib/Catmandu/Fix/capitalize.pm
index b9bb92d..b29ef43 100644
--- a/lib/Catmandu/Fix/capitalize.pm
+++ b/lib/Catmandu/Fix/capitalize.pm
@@ -6,9 +6,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
"${var} = ucfirst(lc(as_utf8(${var}))) if is_string(${var});";
}
diff --git a/lib/Catmandu/Fix/count.pm b/lib/Catmandu/Fix/count.pm
index 35feb12..4f022d0 100644
--- a/lib/Catmandu/Fix/count.pm
+++ b/lib/Catmandu/Fix/count.pm
@@ -6,9 +6,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
"if (is_array_ref(${var})) {" .
"${var} = scalar \@{${var}};" .
diff --git a/lib/Catmandu/Fix/downcase.pm b/lib/Catmandu/Fix/downcase.pm
index fc233ee..b77ccf4 100644
--- a/lib/Catmandu/Fix/downcase.pm
+++ b/lib/Catmandu/Fix/downcase.pm
@@ -6,9 +6,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
"${var} = lc(as_utf8(${var})) if is_string(${var});";
}
diff --git a/lib/Catmandu/Fix/from_json.pm b/lib/Catmandu/Fix/from_json.pm
index 96e6ac3..11c6646 100644
--- a/lib/Catmandu/Fix/from_json.pm
+++ b/lib/Catmandu/Fix/from_json.pm
@@ -8,9 +8,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has _json_var => (is => 'rwp', writer => '_set_json_var', init_arg => undef);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var, $fixer) = @_;
# memoize in case called multiple times
diff --git a/lib/Catmandu/Fix/hash.pm b/lib/Catmandu/Fix/hash.pm
index cf0f525..f325a8f 100644
--- a/lib/Catmandu/Fix/hash.pm
+++ b/lib/Catmandu/Fix/hash.pm
@@ -6,9 +6,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
"if (is_array_ref(${var})) {" .
"${var} = {\@{${var}}};" .
diff --git a/lib/Catmandu/Fix/join_field.pm b/lib/Catmandu/Fix/join_field.pm
index e723a36..3b13429 100644
--- a/lib/Catmandu/Fix/join_field.pm
+++ b/lib/Catmandu/Fix/join_field.pm
@@ -7,9 +7,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has join_char => (fix_arg => 1, default => sub { '' });
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var, $fixer) = @_;
my $join_char = $fixer->emit_string($self->join_char);
diff --git a/lib/Catmandu/Fix/prepend.pm b/lib/Catmandu/Fix/prepend.pm
index 36a1513..8bb8f62 100644
--- a/lib/Catmandu/Fix/prepend.pm
+++ b/lib/Catmandu/Fix/prepend.pm
@@ -7,9 +7,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has value => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var, $fixer) = @_;
my $value = $fixer->emit_string($self->value);
"${var} = join('', ${value}, ${var}) if is_value(${var});";
diff --git a/lib/Catmandu/Fix/replace_all.pm b/lib/Catmandu/Fix/replace_all.pm
index b063592..3a980e8 100644
--- a/lib/Catmandu/Fix/replace_all.pm
+++ b/lib/Catmandu/Fix/replace_all.pm
@@ -8,9 +8,9 @@ has path => (fix_arg => 1);
has search => (fix_arg => 1);
has replace => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
my $search = $self->search;
my $replace = $self->replace;
diff --git a/lib/Catmandu/Fix/trim.pm b/lib/Catmandu/Fix/trim.pm
index 5a5bf2d..3c29162 100644
--- a/lib/Catmandu/Fix/trim.pm
+++ b/lib/Catmandu/Fix/trim.pm
@@ -7,9 +7,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has mode => (fix_arg => 1, default => sub { 'whitespace' });
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
my $perl = "if (is_string(${var})) {";
diff --git a/lib/Catmandu/Fix/upcase.pm b/lib/Catmandu/Fix/upcase.pm
index dcc21fc..f5bc3ed 100644
--- a/lib/Catmandu/Fix/upcase.pm
+++ b/lib/Catmandu/Fix/upcase.pm
@@ -6,9 +6,9 @@ use Catmandu::Fix::Has;
has path => (fix_arg => 1);
-with 'Catmandu::Fix::SimpleChangeValue';
+with 'Catmandu::Fix::SimpleGetValue';
-sub emit_change_value {
+sub emit_value {
my ($self, $var) = @_;
"${var} = uc(as_utf8(${var})) if is_string(${var});";
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git
More information about the Pkg-perl-cvs-commits
mailing list