Sha256: b52d1d15a4433c6e2cf7eb356e70675782412139522379524e26e2c3c8dfd68f

Contents?: true

Size: 491 Bytes

Versions: 323

Compression:

Stored size: 491 Bytes

Contents

package Example;
use warnings;
use strict;

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub name {
    my $self = shift;
    return exists $self->{name} ? $self->{name} : $self->reset_name();
}

sub reset_name {
    my $self = shift;
    $self->{name} = _rand_letter() . _rand_letter() . _suffix();
    return $self->{name};
}

sub _rand_letter {
    my @letters = 'A'..'Z';
    return $letters[int rand $#letters];
}

sub _suffix {
    return 100 + int rand 900;
}

1;

Version data entries

323 entries across 323 versions & 1 rubygems

Version Path
trackler-2.2.1.105 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.104 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.103 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.102 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.101 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.100 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.99 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.98 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.97 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.96 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.95 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.94 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.93 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.92 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.91 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.90 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.89 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.88 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.87 tracks/perl5/exercises/robot-name/Example.pm
trackler-2.2.1.86 tracks/perl5/exercises/robot-name/Example.pm