show an example too

mojolicious · Nov 1, 2016 · bcf2943 · bcf2943
1 parent d79e37a
commit bcf2943
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -616,6 +616,10 @@ Extract options from an array reference with L<Getopt::Long>, but without
 changing its global configuration. The configuration options C<no_auto_abbrev>
 and C<no_ignore_case> are enabled by default.
 
+  # Extract "charset" option
+  getopt ['--charset', 'UTF-8'], 'charset=s' => \my $charset;
+  say $charset;
+
 =head2 hmac_sha1_sum
 
   my $checksum = hmac_sha1_sum $bytes, 'passw0rd';

diff --git a/t/mojo/util.t b/t/mojo/util.t
@@ -116,6 +116,8 @@ $tree   = [
 is_deeply split_cookie_header($header), $tree, 'right result';
 
 # getopt
+getopt ['--charset', 'UTF-8'], 'c|charset=s' => \my $charset;
+is $charset, 'UTF-8', 'right string';
 my $array = ['-t', 'test', '-h', '--whatever', 'Whatever!', 'stuff'];
 getopt $array, ['pass_through'], 't|test=s' => \my $test;
 is $test, 'test', 'right string';