projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
67592e1
)
Unicode::UCD Add synopsis info for num() to pod
author
Karl Williamson
<public@khwilliamson.com>
Sun, 28 Aug 2011 18:16:13 +0000
(12:16 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Fri, 2 Sep 2011 17:57:44 +0000
(11:57 -0600)
lib/Unicode/UCD.pm
patch
|
blob
|
history
diff --git
a/lib/Unicode/UCD.pm
b/lib/Unicode/UCD.pm
index
886a806
..
82ddb27
100644
(file)
--- a/
lib/Unicode/UCD.pm
+++ b/
lib/Unicode/UCD.pm
@@
-1275,6
+1275,11
@@
sub _numeric {
=head2 B<num()>
+ use Unicode::UCD 'num';
+
+ my $val = num("123");
+ my $one_quarter = num("\N{VULGAR FRACTION 1/4}");
+
C<num> returns the numeric value of the input Unicode string; or C<undef> if it
doesn't think the entire string has a completely valid, safe numeric value.