Film.pm (2)

sub rating {
        my CLASS_NAME $self = shift;
        my ($forced) = shift || 0;

        if($forced) {
                my $parser = $self->_parser(FORCED);

                while(my $tag = $parser->get_tag('b')) { #changed from MAIN_TAG to b
                        last if $parser->get_text =~ /user rating/i;
                }

                my $tag = $parser->get_tag('b');
                my $text = $parser->get_trimmed_text('b', 'br/'); #changed from a to br/

                my($rating, $val) = $text =~ m!(\d+\.?\d+)\/.*?\((\d+\,?\d+)\s.*?\)!;
                $val =~ s/\,// if $val;

                $self->{_rating} = [$rating, $val];
        }

        return wantarray ? @{ $self->{_rating} } : $self->{_rating}[0];
}