The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# See also: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$self) }