view release on metacpan or  search on metacpan

script/count-done-org-todos  view on Meta::CPAN

    $doc = $org->parse(scalar <>);
}

my $n = 0;
$doc->walk(
    sub {
        my $el = shift;
        $n++ if $el->isa('Org::Element::Headline') && $el->is_done;
    });

say $n;

# ABSTRACT: Count todos which are done in Org document
# PODNAME: count-done-org-todos

__END__

=pod

=encoding UTF-8

script/count-org-todos  view on Meta::CPAN

    $doc = $org->parse(scalar <>);
}

my $n = 0;
$doc->walk(
    sub {
        my $el = shift;
        $n++ if $el->isa('Org::Element::Headline') && $el->is_todo;
    });

say $n;

# ABSTRACT: Count todos in Org document
# PODNAME: count-org-todos

__END__

=pod

=encoding UTF-8

script/count-undone-org-todos  view on Meta::CPAN

}

my $n = 0;
$doc->walk(
    sub {
        my $el = shift;
        $n++ if $el->isa('Org::Element::Headline') &&
            $el->is_todo && !$el->is_done;
    });

say $n;

# ABSTRACT: Count todos which are undone in Org document
# PODNAME: count-undone-org-todos

__END__

=pod

=encoding UTF-8