Select Code to Download

   use feature qw( state );
   use Type::Params qw( compile );
...
      
      return $x + $y;
   }

   use feature qw( state );
   use Type::Params qw( compile_named_oo );
...
      
      return $arg->x + $arg->y;
   }

   use feature qw( state );
   use Type::Params qw( signature );
...
      
      return $x + $y;
   }

   use feature qw( state );
   use Type::Params qw( signature );
...
      
      return $arg->x + $arg->y;
   }

   use experimental qw( signatures );
   use Type::Params qw( signature_for );
...
   sub add_numbers ( $self, $arg ) {
      return $arg->x + $arg->y;
   }

   use Type::Tiny::Enum Size => [ qw( S M L XL ) ];

   package Local::TShirt {
      use Moose;
...
         }
      }
   }

   sub post_data ( $url, $data, $ua=undef ) {
      
...
      $ua = HTTPTiny->new unless is_HTTPTiny $ua;
      $ua->post( $url, $data );
   }

   use Types::Common -all;

   use Types::Common qw( signature_for Num NonEmptyStr );
</pre>
...

<c>
   use Types::Common -lexical, -all;

   has lucky_numbers => (
      is    => 'ro',
      isa   => ArrayRef[ Num / Any ],
   );

   has output_list => (
      is        => 'ro',
      isa       => ArrayRef,
      default   => sub { [] },
   );

   has output_list => (
      is        => 'ro',
      isa       => ArrayRef,
      default   => ArrayRef->type_default,
   );

   has colour_scheme => (
      is        => 'ro',
...
         return \%colours;
      },
   );