[libcatmandu-marc-perl] 161/208: Renaming marc_has_ref to marc_spec_has

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit 990fe1ca4046af1d74dc21263f6c1407e6f2f3f3
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Thu Jun 29 14:37:17 2017 +0200

    Renaming marc_has_ref to marc_spec_has
---
 Build.PL                                    |  2 +-
 lib/Catmandu/Fix/Condition/marc_has_ref.pm  | 12 ++++++------
 t/{25-marc_has_ref.t => 25-marc_spec_has.t} |  4 ++--
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/Build.PL b/Build.PL
index 202e476..b2071dc 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,5 +1,5 @@
 
-# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v6.005.
+# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v6.008.
 use strict;
 use warnings;
 
diff --git a/lib/Catmandu/Fix/Condition/marc_has_ref.pm b/lib/Catmandu/Fix/Condition/marc_has_ref.pm
index 1053b43..5369857 100644
--- a/lib/Catmandu/Fix/Condition/marc_has_ref.pm
+++ b/lib/Catmandu/Fix/Condition/marc_has_ref.pm
@@ -1,4 +1,4 @@
-package Catmandu::Fix::Condition::marc_has_ref;
+package Catmandu::Fix::Condition::marc_spec_has;
 use Catmandu::Sane;
 use Catmandu::Fix::marc_spec;
 use Catmandu::Fix::Condition::exists;
@@ -38,13 +38,13 @@ sub emit {
 
 =head1 NAME
 
-Catmandu::Fix::Condition::marc_has_ref - Test if a MARCspec references data
+Catmandu::Fix::Condition::marc_spec_has - Test if a MARCspec references data
 
 =head1 SYNOPSIS
 
-   # marc_has_ref(MARCspec)
+   # marc_spec_has(MARCspec)
 
-   unless marc_has_ref('LDR{/6=\a}{/7=\a|/7=\c|/7=\d|/7=\m}')
+   unless marc_spec_has('LDR{/6=\a}{/7=\a|/7=\c|/7=\d|/7=\m}')
         set_field('type','Book')
    end
 
@@ -52,7 +52,7 @@ Catmandu::Fix::Condition::marc_has_ref - Test if a MARCspec references data
 
 Evaluate the enclosing fixes only if the MARCspec does reference data.
 
-Does the same like  L<marc_has|Catmandu::Fix::Condition::marc_has> but uses 
+Does the same like  L<marc_has|Catmandu::Fix::Condition::marc_has> but uses
 MARCspec - A common MARC record path language.
 
 See L<MARCspec - A common MARC record path language|http://marcspec.github.io/MARCspec/>
@@ -60,7 +60,7 @@ for documentation on the path syntax.
 
 =head1 METHODS
 
-=head2 marc_has_ref(MARCspec)
+=head2 marc_spec_has(MARCspec)
 
 Evaluates to true when the MARCspec references data, false otherwise.
 
diff --git a/t/25-marc_has_ref.t b/t/25-marc_spec_has.t
similarity index 81%
rename from t/25-marc_has_ref.t
rename to t/25-marc_spec_has.t
index 8bbe7e2..e10b543 100644
--- a/t/25-marc_has_ref.t
+++ b/t/25-marc_spec_has.t
@@ -12,11 +12,11 @@ use Catmandu::Fix;
 
 
 my $fixes = <<EOF;
-if marc_has_ref('LDR{/6=\\a}{/7=\\a|/7=\\c|/7=\\d|/7=\\m}')
+if marc_spec_has('LDR{/6=\\a}{/7=\\a|/7=\\c|/7=\\d|/7=\\m}')
   add_field(type,'Book')
 end
 
-if marc_has_ref('LDR{/6=\\a}{/7=\\b}')
+if marc_spec_has('LDR{/6=\\a}{/7=\\b}')
   set_field(type,'Other')
 end
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git