From d5052ca23981b95dc25b3bc0433ec8009352bbd3 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Sat, 28 Sep 2013 11:12:30 +0200
Subject: [PATCH] Project: simplify code

---
 ACU/API/Submission.pm |  4 ++--
 ACU/Project.pm        | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/ACU/API/Submission.pm b/ACU/API/Submission.pm
index fa1b182..ecca803 100644
--- a/ACU/API/Submission.pm
+++ b/ACU/API/Submission.pm
@@ -9,7 +9,7 @@ use Carp;
 
 use ACU::API::Base;
 
-sub add($$$$$)
+sub add
 {
     my $year = shift;
     my $project = shift;
@@ -24,7 +24,7 @@ sub add($$$$$)
     }
 }
 
-sub get($$$$)
+sub get
 {
     my $year = shift;
     my $project = shift;
diff --git a/ACU/Project.pm b/ACU/Project.pm
index 1a25064..f00ac0d 100644
--- a/ACU/Project.pm
+++ b/ACU/Project.pm
@@ -69,7 +69,7 @@ sub start_element
     if ($element->{Name} eq "project" || $element->{Name} eq "Project") {
 	$self->{parsed}{name} = $element->{Attributes}{"{}name"}{Value} if ($element->{Attributes}{"{}name"});
     }
-    elsif (grep { /^\Q$element->{Name}\E$/ } @stack_tags)
+    elsif (grep { $element->{Name} eq $_ } @stack_tags)
     {
 	my $data = {};
 
@@ -79,7 +79,7 @@ sub start_element
 
 	push @{ $self->{stack} }, $data;
     }
-    elsif (grep { /^\Q$element->{Name}\E$/ } @value_tags) {
+    elsif (grep { $element->{Name} eq $_ } @value_tags) {
 	$self->{saveChars} = 1;
 	$self->{values} = "";
     }
@@ -100,7 +100,7 @@ sub start_element
 	    quota => $element->{Attributes}{"{}quota"}{Value} // 10,
 	};
     }
-    elsif (grep { /^\Q$element->{Name}\E$/ } @stackonce_tags) {
+    elsif (grep { $element->{Name} eq $_ } @stackonce_tags) {
 	push @{ $self->{stack} }, { };
     }
 }
@@ -132,7 +132,7 @@ sub end_element
 	$self->{saveChars} = 0;
     }
 
-    elsif (grep { /^\Q$element->{Name}\E$/ } @stack_tags)
+    elsif (grep { $element->{Name} eq $_ } @stack_tags)
     {
 	my $item = pop @{ $self->{stack} };
 	my $pop = pop @{ $self->{stack} };
@@ -160,7 +160,7 @@ sub end_element
 	}
     }
 
-    elsif (grep { /^\Q$element->{Name}\E$/ } @stackonce_tags)
+    elsif (grep { $element->{Name} eq $_ } @stackonce_tags)
     {
 	my $item = pop @{ $self->{stack} };
 	my $pop = pop @{ $self->{stack} };