use strict;
use warnings;

use XML::Rules;

my @rules = (
  gibsonca => undef,
  _default => sub {
    no warnings 'uninitialized';
    return if $_[1]->{_content} =~ /\S/;
    my $p = $_[4]{parser};
    print $p->current_line(),"\n";
    return;
  },
);

my $xr = XML::Rules->new(rules => \@rules);

$xr->parse(<<XML);
<gibsonca>
<abc>fds </abc> <!-- ok -->
<ddd></ddd> <!-- not ok -->
<eee> </eee> <!-- not ok -->
</gibsonca>
XML