Permalink
Browse files

Renamed Citematic-the-module to Citematic::Get.

  • Loading branch information...
1 parent bf8265f commit 67df43681094d99fa622a62235f8f7f6ae1c71ac @Kodiologist committed Mar 25, 2012
Showing with 7 additions and 7 deletions.
  1. +2 −2 Perl/{Citematic.pm → Citematic/Get.pm}
  2. +4 −4 Perl/cite.pl
  3. +1 −1 Perl/test_citematic.pl
View
4 Perl/Citematic.pm → Perl/Citematic/Get.pm
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-package Citematic;
+package Citematic::Get;
use utf8;
use warnings;
@@ -635,7 +635,7 @@ sub get
# year (scalar)
# title (array ref)
# doi (scalar)
-# Returns a Biblio::Citation::Format object or undef.
+# Returns a hashref of CSL input data or undef.
{my %terms = @_;
$terms{author} ||= [];
$terms{title} ||= [];
View
8 Perl/cite.pl
@@ -3,7 +3,7 @@
use utf8;
use warnings;
use strict;
-use Citematic;
+use Citematic::Get;
use Citematic::QuickBib;
use Encode 'decode';
use JSON qw(to_json);
@@ -27,8 +27,8 @@
exit;}
my @title_words = @{$opt->title || []};
-local $Citematic::verbose = not $opt->quiet;
-local $Citematic::bypass_ebsco_cache = $opt->bypass_ebsco_cache;
+local $Citematic::Get::verbose = not $opt->quiet;
+local $Citematic::Get::bypass_ebsco_cache = $opt->bypass_ebsco_cache;
# Interpret arguments that look like years, DOIs, or
# formatted citations appropriately. Interpret the remainder
@@ -50,7 +50,7 @@
0;}}
@ARGV;
-my $a = Citematic::get
+my $a = Citematic::Get::get
(author => \@author_words,
year => $year,
title => \@title_words,
View
2 Perl/test_citematic.pl
@@ -3,7 +3,7 @@
use utf8;
use warnings;
use strict;
-use Citematic 'get';
+use Citematic::Get 'get';
use Citematic::QuickBib;
use Test::More;

0 comments on commit 67df436

Please sign in to comment.