From 474f7ef3c12aa30d3dddd162bfa7d14543502e1e Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 25 Jun 2010 18:45:28 +0200
Subject: [PATCH 1/1] example reduce code to use $out, $key and $value

---
 public/code/autor.citata.pl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 public/code/autor.citata.pl

diff --git a/public/code/autor.citata.pl b/public/code/autor.citata.pl
new file mode 100644
index 0000000..9b1d15f
--- /dev/null
+++ b/public/code/autor.citata.pl
@@ -0,0 +1,7 @@
+$key = 'autor'; $value = 'citata';
+
+foreach my $a ( @{ $row->{autor_full} } ) {
+ foreach my $c ( @{ $row->{broj_citata} } ) {
+  $out->{$a} += $c;
+ }
+}
-- 
2.20.1