epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Project: simplify code

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-28 11:12:30 +02:00
commit d5052ca239
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ACU/API/Submission.pm
View file

@ -9,7 +9,7 @@ use Carp;
use ACU::API::Base; use ACU::API::Base;
sub add($$$$$) sub add
{ {
my $year = shift; my $year = shift;
my $project = shift; my $project = shift;
@ -24,7 +24,7 @@ sub add($$$$$)
} }
} }
sub get($$$$) sub get
{ {
my $year = shift; my $year = shift;
my $project = shift; my $project = shift;

10
ACU/Project.pm
View file

@ -69,7 +69,7 @@ sub start_element
if ($element->{Name} eq "project" || $element->{Name} eq "Project") { if ($element->{Name} eq "project" || $element->{Name} eq "Project") {
$self->{parsed}{name} = $element->{Attributes}{"{}name"}{Value} if ($element->{Attributes}{"{}name"}); $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 = {}; my $data = {};
@ -79,7 +79,7 @@ sub start_element
push @{ $self->{stack} }, $data; push @{ $self->{stack} }, $data;
} }
elsif (grep { /^\Q$element->{Name}\E$/ } @value_tags) { elsif (grep { $element->{Name} eq $_ } @value_tags) {
$self->{saveChars} = 1; $self->{saveChars} = 1;
$self->{values} = ""; $self->{values} = "";
} }
@ -100,7 +100,7 @@ sub start_element
quota => $element->{Attributes}{"{}quota"}{Value} // 10, quota => $element->{Attributes}{"{}quota"}{Value} // 10,
}; };
} }
elsif (grep { /^\Q$element->{Name}\E$/ } @stackonce_tags) { elsif (grep { $element->{Name} eq $_ } @stackonce_tags) {
push @{ $self->{stack} }, { }; push @{ $self->{stack} }, { };
} }
} }
@ -132,7 +132,7 @@ sub end_element
$self->{saveChars} = 0; $self->{saveChars} = 0;
} }
elsif (grep { /^\Q$element->{Name}\E$/ } @stack_tags) elsif (grep { $element->{Name} eq $_ } @stack_tags)
{ {
my $item = pop @{ $self->{stack} }; my $item = pop @{ $self->{stack} };
my $pop = 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 $item = pop @{ $self->{stack} };
my $pop = pop @{ $self->{stack} }; my $pop = pop @{ $self->{stack} };