Select Code to Download

  sub htmlprint {
    my %arg = @_;
    $arg{file}->printf(
...
      $arg{text},
    );
  }

  use Carp qw(croak);
  
  sub htmlprint {
...
      $arg{text},
    );
  }

  use Carp qw(croak);
  use Scalar::Util qw(blessed);
  
...
      $arg{text},
    );
  }

  use feature qw(state);
  use Type::Params qw(compile_named);
  use Types::Standard qw(FileHandle HasMethods Str);
...
      $arg->{text},
    );
  }

  use Type::Params qw(compile_named);
  use Types::Standard qw(FileHandle HasMethods Str);
  
...
    
    ...;  # rest of the function goes here
  }

  # will throw an exception because of 'size'
  htmlprint( file => $fh, text => "Hello world", colour => "red", size
+ => 7 );

  use feature qw(state);
  use Type::Params 1.004000 qw(compile_named);
  use Types::Standard qw(FileHandle HasMethods Str);
...
    
    ...;  # rest of the function goes here
  }

  use feature qw(state);
  use Type::Params 1.004000 qw(compile_named_oo);
  use Types::Standard qw(FileHandle HasMethods Str);
...
      $arg->text,                           # not $arg->{text}
    );
  }

  use feature qw(state);
  use Type::Params 1.004000 qw(compile_named);
  use Types::Standard qw(FileHandle HasMethods Str);
...
    
    ...;  # rest of the function goes here
  }

  use feature qw(state);
  use Type::Params 1.004000 qw(compile_named);
  use Types::Standard qw(FileHandle HasMethods Str Object);
...
    
    ...;  # rest of the function goes here
  }

  use feature qw(state);
  use Type::Params 1.004000 qw(compile);
  use Types::Standard qw(FileHandle HasMethods Str);
...
  
  htmlprint($fh, "Hello world", "red");
  htmlprint($fh, "Hello world");   # defaults to black

  package My::Types {
    use Type::Library -base;
    use Type::Utils -all;
...
        return $fh;
      };
  }

  use feature qw(state);
  use Type::Params 1.004000 qw(compile_named);
  use Types::Standard qw(HasMethods Str);
...
    
    ...;  # rest of the function goes here
  }

  htmlprint(
    file => "/tmp/out.html",  # will be coerced to a filehandle
    text => "Hello world",
  );

  use feature qw(state);
  use Type::Params 1.004000 qw(compile_named);
  use Types::Standard qw(HasMethods Str);
...
    
    ...;  # rest of the function goes here
  }