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

Project: simplify code

This commit is contained in:
Mercier Pierre-Olivier 2013-09-28 11:12:30 +02:00
parent 1a142a9759
commit d5052ca239
2 changed files with 7 additions and 7 deletions
Show Stats 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;
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;

10
ACU/Project.pm
View File

@ -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} };