Select Code to Download

  $usage->die unless GetOptions(\%return, grep { length } @specs);

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

sub die  { 
  my $self = shift;
...
    )
  );
}

sub text { shift->(1) }