view release on metacpan or  search on metacpan

lib/BalanceOfPower/Utils.pm  view on Meta::CPAN

    my $second = shift;
    return 0 if ($first eq $second);
    my ($first_y, $first_t) = split_turn($first);
    return undef if(! $first_y);
    my ($second_y, $second_t) = split_turn($second);
    return undef if(! $second_y);
    return 0 if($first_y == $second_y && $first_t == $second_t);
    return undef
        if($first_t < 0 ||
           $second_t < 0 ||
           $first_t > TURNS_FOR_YEAR ||
           $second_t > TURNS_FOR_YEAR);
    if($first_y > $second_y ||
      (($first_y == $second_y && $first_t > $second_t)))
    {
        return 1;
    }
    else
    {
        return -1;
    }
}
sub evidence_text
{
    my $text = shift;
    my $key = shift;
  	$text =~ s/($key)/as_evidenced($1)/eg;
    return $text;
}

sub as_main_title
{
    my $text = shift;
    my $mode = shift;
    if($mode eq 'print')
    {
        return as_title("$text\n===\n");
    }
    elsif($mode eq 'html')
    {
        return as_html_title($text);
    }
}
sub as_main_subtitle
{
    my $text = shift;
    my $mode = shift;
    if($mode eq 'print')
    {
        return "### $text\n";
    }
    elsif($mode eq 'html')
    {
        return "<h4>$text</h4>";
    }
}

sub as_title
{
    my $text = shift;
    return color("yellow bold") . $text . color("reset");
}
sub as_html_title
{
    my $text = shift;
    return "<h3>$text</h3>";
}
sub as_html_dangerous
{
    my $text = shift;
    return '<span class="dangerous">' . $text . '</span>';
}
sub as_html_evidenced
{
    my $text = shift;
    return '<span class="evidenced">' . $text . '</span>';
}
sub as_html_box
{
    my $text = shift;
    return "<p>$text</p>";
}
sub as_subtitle
{
    my $text = shift;
    return color("yellow") . $text . color("reset");
}
sub as_evidenced
{
    my $text = shift;
    return color("bold green") . $text . color("reset");
}
sub as_active
{
    my $text = shift;
    return color("bold white") . $text . color("reset");
}
sub br
{
    my $mode = shift;
    if($mode eq 'print')
    {
        return "\n";
    }
    elsif($mode eq 'html')
    {
        return "<br />";
    }
}

our @EXPORT_OK = ('prev_turn', 'next_turn', 'random', 'random10', 'get_year_turns', 'as_title', 'from_to_turns', 'compare_turns', 'as_subtitle', 'evidence_text', 'as_evidenced', 'as_active', 'as_html_title', 'as_html_box', 'as_html_dangerous', 'as_ht...

1;