File Coverage

_build/lib/MyModuleBuilder.pm

Criterion	Covered	Total	%
statement	3	12	25.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	1	3	33.3
pod	0	2	0.0
total	4	21	19.0

package MyModuleBuilder;
use Module::Build;
@ISA = qw(Module::Build);
	sub ACTION_generate {
		my $self = shift;

		$self->depends_on ('build');

		my $protocol = $self->args ('protocol') || [
			$self->base_dir.'/protocol/wayland.xml',
			$self->base_dir.'/protocol/gtk-shell.xml',
			$self->base_dir.'/protocol/xdg-shell.xml',
			$self->base_dir.'/protocol/workspaces.xml',
			$self->base_dir.'/protocol/text.xml',
			$self->base_dir.'/protocol/wayland-test.xml',
			$self->base_dir.'/protocol/desktop-shell.xml',
			$self->base_dir.'/protocol/fullscreen-shell.xml',
			$self->base_dir.'/protocol/text-cursor-position.xml',
			$self->base_dir.'/protocol/input-method.xml',
			$self->base_dir.'/protocol/scaler.xml',
			$self->base_dir.'/protocol/screenshooter.xml',
		];

		foreach my $p (@$protocol) {
			system ($self->perl,
				'-I'.$self->blib.'/lib',
				$self->blib.'/script/wl-scanner.pl',
				$p, $self->base_dir.'/lib');

			die 'Failed to generate protocol module' if $?;
		}
	}

	sub ACTION_dist {
		my $self = shift;

		$self->depends_on ('generate');
		$self->SUPER::ACTION_dist (@_);
	}

1;