Contents

# Declare package 'Bob' with version
package Bob 2;
use strict;
use warnings;

sub hey {
  my ($text) = @_;
  return 'Fine. Be that way!'
    if $text =~ /^\s*$/;
  return 'Whoa, chill out!'
    if uc($text) eq $text and $text =~ /\p{Uppercase}/;
  return 'Sure.'
    if $text =~ /\?\s*$/;
  return 'Whatever.';
}

1;

Version data entries

125 entries across 125 versions & 1 rubygems

Version	Path
trackler-2.1.0.53	tracks/perl5/exercises/bob/Example.pm
trackler-2.1.0.52	tracks/perl5/exercises/bob/Example.pm
trackler-2.1.0.51	tracks/perl5/exercises/bob/Example.pm
trackler-2.1.0.50	tracks/perl5/exercises/bob/Example.pm
trackler-2.1.0.49	tracks/perl5/exercises/bob/Example.pm