duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

DatesRole: Tidyup

master
Rob Emery 2014-08-31 18:50:59 +01:00
parent a893786d53
commit 002f3bd0b3
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/DDG/GoodieRole/Dates.pm
View File

@ -76,7 +76,6 @@ sub short_day_of_week_regex {
}
# Accessors for matching regexes
# These matches are for "in the right format"/"looks about right"
# not "are valid dates"; expects normalised whitespace
sub datestring_regex {
@ -91,13 +90,22 @@ sub formatted_datestring_regex {
return $formatted_datestring;
}
#
# deprecated: for backwards compatibility
#
sub vague_datestring_regex {
return descriptive_datestring_regex();
}
sub date_regex {
return $formatted_datestring;
}
sub parse_vague_string_to_date {
my ($d) = @_;
return parse_descriptive_datestring_to_date($d);
}
sub build_date_regex {
my @regexes = ();
@ -129,6 +137,7 @@ sub build_date_regex {
return qr/$returned_regex/i;
}
# Parses any string that *can* be parsed to a date object
sub parse_string_to_date {
my ($d) = @_;
return parse_formatted_datestring_to_date($d);
@ -189,11 +198,6 @@ sub parse_all_strings_to_date {
}
# Parses a really vague description and basically guesses
sub parse_vague_string_to_date {
my ($d) = @_;
return parse_descriptive_datestring_to_date($d);
}
sub parse_descriptive_datestring_to_date {
my ($string) = @_;