my $usage = bless sub {
    my ($as_string) = @_;
    ...
    return $buffer if $as_string;
  } => "Getopt::Long::Descriptive::Usage";