Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove deprecated given/when calls

Browse Source
This commit is contained in:
Chris 2024-04-29 13:04:29 +01:00
parent 3c1832cf05
commit 826b1e5d94
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/Webperl/Template.pm
View File

@ -880,11 +880,9 @@ sub ordinal {
my ($key) = $val =~ /(\d)$/;
my $ext = "th";
given($key) {
when("1") { $ext = "st"; }
when("2") { $ext = "nd"; }
when("3") { $ext = "rd"; }
};
if($key eq "1") { $ext = "st"; }
if($key eq "2") { $ext = "nd"; }
if($key eq "3") { $ext = "rd"; }
return $val.$ext;
}
@ -1089,11 +1087,10 @@ sub _markdown_underline {
my $title = shift;
my $type;
given($level) {
when("#") { $type = "-="; }
when("##") { $type = "="; }
when("###") { $type = "-"; }
}
if($level eq "#") { $type = "-="; }
if($level eq "##") { $type = "="; }
if($level eq "###") { $type = "-"; }
return $title if(!$type);
# Build the underscores - may need additional trimming as 'type' can be multichar