use Type::Params qw(compile_named);
  use Types::Standard qw(FileHandle HasMethods Str);
  
  my $_check_htmlprint;
  sub htmlprint {
    $_check_htmlprint ||= compile_named(
      file   => FileHandle | HasMethods['printf'],
      text   => Str,
      colour => Str,
    );
    my $arg = $_check_htmlprint->(@_);
    
    ...;  # rest of the function goes here
  }