File Coverage

blib/lib/JSON/Karabiner/Manipulator/Conditions/Frontmost_application_if.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	3	6	50.0
condition	1	2	50.0
subroutine	9	9	100.0
pod	0	4	0.0
total	47	55	85.4

package JSON::Karabiner::Manipulator::Conditions::Frontmost_application_if ;
$JSON::Karabiner::Manipulator::Conditions::Frontmost_application_if::VERSION = '0.017';
use strict;
use warnings;
use JSON;
use Carp;
use parent 'JSON::Karabiner::Manipulator::Conditions';

sub new {
  my $class = shift;
  my ($type, $value) = @_;
  my $obj = $class->SUPER::new($type, $value);
  $obj->{data} = $value || [],
  return $obj;
}

sub add_bundle_identifiers {
  my $s = shift;
  my @identifiers = @_;
  croak ('No identifier regular expressions passed.') unless @identifiers;
  push @{$s->{data}}, { bundle_identifiers => [ @identifiers ] };

}

sub add_file_paths {
  my $s = shift;
  my @files = @_;
  croak ('No file path regular expressions passed.') unless @files;
  push @{$s->{data}}, { file_paths => [ @files ] };

}

sub add_description {
  my $s = shift;
  my $desc = shift;
  croak ('No file path regular expressions passed.') unless $desc;
  push @{$s->{data}}, { description => $desc };

}
# ABSTRACT: definition for Frontmost_application_if condition

1;

__END__