-

#!/usr/bin/perl

package Mojo::ByteStream::Role::Escape;

use Role::Tiny;
use HTML::Entities();

sub html_escape { HTML::Entities::encode_entities(shift) }

1;

package main;

use Mojo::Base -strict;
use Mojo::ByteStream;
warn Mojo::ByteStream->with_roles('Mojo::ByteStream::Role::Escape')->new('All your møøse are belong to me')->html_escape;