Mohammad Sajid Anwar manwar

## traffic_light
#!/usr/bin/perl

use strict;
use warnings;
use 5.024;

package SVG::TrafficLight;

use Moose;
use SVG;

## date.pl
#!/usr/bin/env perl
use Test::Most;
use Veure::Script; # strict, warnings, postderef, sigs, and more
use re 'eval';     # needed for (??{}) in the regex

# the (??{}) construct will execute code and consider the result of that
# to be a regex to match on.
my $yyyy_mm_dd = qr/
  ^
        # any four digit year

## gist:cdfcf6119e7f762d99311fa98c25f274
perl -MJSON::PP -E 'foreach ("001".."031") {$c = `curl -s "https://perlweeklychallenge.org/chart/pwc-challenge-$_.json"`; $d = decode_json $c; say scalar @{$d->{series}->[0]->{data}}; }' | perl -nalE 'push @d, $_ }{ say sprintf "https://quickchart.io/chart?width=500&height=300&c={type:\"bar\",data:{labels:[%s],datasets:[{label:\"Perl Weekly Challenge users by week\",data:[%s]}]}}", join(",", 1..scalar(@d)), join(",", @d)'
	#!/usr/bin/perl

	use strict;
	use warnings;
	use 5.024;

	package SVG::TrafficLight;

	use Moose;
	use SVG;
	#!/usr/bin/env perl
	use Test::Most;
	use Veure::Script; # strict, warnings, postderef, sigs, and more
	use re 'eval'; # needed for (??{}) in the regex

	# the (??{}) construct will execute code and consider the result of that
	# to be a regex to match on.
	my $yyyy_mm_dd = qr/
	^
	# any four digit year