File Coverage

blib/lib/Devel/GDB/Parser/Breakpoint.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	32	40	80.0

package Devel::GDB::Parser::Breakpoint;

BEGIN {
	$Devel::GDB::Parser::Breakpoint::VERSION = '0.02';
}

use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(parser_breakpoint);

use Devel::GDB::Breakpoint;
use Parse::Keyword { parser_breakpoint => \&parser_breakpoint_parser };

sub parser_breakpoint { 1 };

sub parser_breakpoint_parser {
    lex_read_space;

    my $num;
    while (my $c = lex_peek) {
        if ($c =~ /^[0-9]$/) {
            $num .= $c;
            lex_read(1); # consume
        } else {
            last;
        }
    }

    unless ($num) {
        die "syntax error. Usage: parser_breakpoint {  }";
    }

    # Trigger bp(...)
    breakpoint(0+$num);

    return (sub {}, 0);
}

1;
__END__