Add Cool coercers ref #3361

Author: stoned

doc/Type/Cool.pod6

@@ -112,6 +112,13 @@ what type they coerce to:
     chomp           Str
     chop            Str
     codes           Str
+    Complex         Numeric
+    FatRat          Numeric
+    Int             Numeric
+    Num             Numeric
+    Rat             Numeric
+    Real            Numeric
+    UInt            Numeric
 
 =end table
 
@@ -1494,6 +1501,119 @@ string|/routine/sprintf#Directives>, to format and print the arguments
 =for code
 "%.8f".printf(now - now ); # OUTPUT: «-0.00004118»
 
+=head2 method Complex
+
+Defined as:
+
+    multi method Complex()
+
+Coerces the invocant to a L«C<Numeric>|/type/Numeric» and calls its
+L«C<.Complex>|/routine/Complex» method. L<Fails|/routine/fail> if the
+coercion to a C<Numeric> cannot be done.
+
+    say 1+0i.Complex;         # OUTPUT: «1+0i␤»
+    say 2e1.Complex;          # OUTPUT: «20+0i␤»
+    say 1.3.Complex;          # OUTPUT: «1.3+0i␤»
+    say (-4/3).Complex;       # OUTPUT: «-1.3333333333333333+0i␤»
+    say "foo".Complex.^name;  # OUTPUT: «Failure␤»
+    say 1+1i.Complex;         # OUTPUT: «1+1i␤»
+
+=head2 method FatRat
+
+Defined as:
+
+    multi method FatRat()
+
+Coerces the invocant to a L«C<Numeric>|/type/Numeric» and calls its
+L«C<.FatRat>|/routine/FatRat» method. L<Fails|/routine/fail> if the
+coercion to a C<Numeric> cannot be done.
+
+    say 1+0i.Rat;             # OUTPUT: «1␤»
+    say 2e1.Rat;              # OUTPUT: «20␤»
+    say 1.3.Rat;              # OUTPUT: «1.3␤»
+    say (-4/3).Rat;           # OUTPUT: «-1.333333␤»
+    say "foo".Rat.^name;      # OUTPUT: «Failure␤»
+
+=head2 method Int
+
+Defined as:
+
+    multi method Int()
+
+Coerces the invocant to a L«C<Numeric>|/type/Numeric» and calls its
+L«C<.Int>|/routine/Int» method. L<Fails|/routine/fail> if the
+coercion to a C<Numeric> cannot be done.
+
+    say 1+0i.Int;             # OUTPUT: «1␤»
+    say 2e1.Int;              # OUTPUT: «20␤»
+    say 1.3.Int;              # OUTPUT: «1␤»
+    say (-4/3).Int;           # OUTPUT: «-1␤»
+    say "foo".Int.^name;      # OUTPUT: «Failure␤»
+
+=head2 method Num
+
+Defined as:
+
+    multi method Num()
+
+Coerces the invocant to a L«C<Numeric>|/type/Numeric» and calls its
+L«C<.Num>|/routine/Num» method. L<Fails|/routine/fail> if the
+coercion to a C<Numeric> cannot be done.
+
+    say 1+0i.Num;             # OUTPUT: «1␤»
+    say 2e1.Num;              # OUTPUT: «20␤»
+    say 1.3.Num;              # OUTPUT: «1.3␤»
+    say (-4/3).Num;           # OUTPUT: «-1.3333333333333333␤»
+    say "foo".Num.^name;      # OUTPUT: «Failure␤»
+
+=head2 method Rat
+
+Defined as:
+
+    multi method Rat()
+
+Coerces the invocant to a L«C<Numeric>|/type/Numeric» and calls its
+L«C<.Rat>|/routine/Rat» method. L<Fails|/routine/fail> if the
+coercion to a C<Numeric> cannot be done.
+
+    say 1+0i.Rat;             # OUTPUT: «1␤»
+    say 2e1.Rat;              # OUTPUT: «20␤»
+    say 1.3.Rat;              # OUTPUT: «1.3␤»
+    say (-4/3).Rat;           # OUTPUT: «-1.333333␤»
+    say "foo".Rat.^name;      # OUTPUT: «Failure␤»
+
+=head2 method Real
+
+Defined as:
+
+    multi method Real()
+
+Coerces the invocant to a L«C<Numeric>|/type/Numeric» and calls its
+L«C<.Real>|/routine/Real» method. L<Fails|/routine/fail> if the
+coercion to a C<Numeric> cannot be done.
+
+    say 1+0i.Real;            # OUTPUT: «1␤»
+    say 2e1.Real;             # OUTPUT: «20␤»
+    say 1.3.Real;             # OUTPUT: «1.3␤»
+    say (-4/3).Real;          # OUTPUT: «-1.333333␤»
+    say "foo".Real.^name;     # OUTPUT: «Failure␤»
+
+=head2 method UInt
+
+Defined as:
+
+    multi method UInt()
+
+Coerces the invocant to an L«C<Int>|/type/Int».  L<Fails|/routine/fail>
+if the coercion to an C<Int> cannot be done or if the C<Int> the invocant
+had been coerced to is negative.
+
+    say 1+0i.UInt;            # OUTPUT: «1␤»
+    say 2e1.UInt;             # OUTPUT: «20␤»
+    say 1.3.UInt;             # OUTPUT: «1␤»
+    say (-4/3).UInt.^name;    # OUTPUT: «Failure␤»
+    say "foo".UInt.^name;     # OUTPUT: «Failure␤»
+
 =end pod
 
 # vim: expandtab softtabstop=4 shiftwidth=4 ft=perl6