Sine wave: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: fix file open error handling)
Line 94: Line 94:
use SVG;
use SVG;
my $filename = 'sine.svg';
my $filename = 'sine.svg';
my $out = open($filename, :w) or die "$!\n";
my $out = open($filename, :w) orelse .die;
$out.say: SVG.serialize(
$out.say: SVG.serialize(
svg => [
svg => [