File Coverage

blib/lib/App/Slackeria/Plugin/Ikiwiki.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch	0	4	0.0
condition	0	5	0.0
subroutine	6	7	85.7
pod	0	1	0.0
total	24	48	50.0

package App::Slackeria::Plugin::Ikiwiki;

use strict;
use warnings;
use autodie;
use 5.010;

use parent 'App::Slackeria::Plugin';

our $VERSION = '0.12';

sub check {
	my ($self) = @_;

	my $p = $self->{conf}->{name};

	my $re_p = $self->{conf}->{title_name} // $p;

	my $pfile = sprintf( $self->{conf}->{source_file}, $p );
	my $re_title = qr{
		^ \[ \[ \! meta\s title = "
		$re_p (?: \s v (? [0-9.-]+ ))?
		" ]] $
	}x;

	if ( not -e $pfile ) {
		die("No project file\n");
	}
	else {
		open( my $fh, '<', $pfile );
		while ( my $line = <$fh> ) {
			if ( $line =~ $re_title ) {
				return { data => $+{version} // q{}, };
			}
		}
		close($fh);
		die("Wrong name or no title\n");
	}
}

1;

__END__