package RDAS::Parser;

use Carp;

use lib '/app/tools/common/lib';
use Common::Assert;

use lib '/app/tools/rdas/lib';
use base 'RDAS::RDAS';

sub _validOptions { return qw( content links ) }

sub parse { confess "Must be overloaded" }

sub link {
    my $self = shift;
    my %args = @_;

    assert( $args{text}, 'text criteria required' );

    my $links = $self->links() || return;

    foreach my $l (@$links) {
        next unless ( $l->text );

        Log->debug( "Link test: " . $l->text . " eq $args{text}" );
        return $l if ( $l->text =~ /$args{text}/ );
    }

    return;
}

1;