File Coverage

blib/lib/File/Spotlight.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package File::Spotlight;

use strict;
use 5.008_001;
our $VERSION = '0.05';

use Carp;
use Mac::Spotlight::MDQuery ':constants';
use Mac::Spotlight::MDItem  ':constants';
use Scalar::Util qw(blessed);

sub new {
    my $class = shift;
    my($file) = @_;

    my $self = bless { path => $file }, $class;
    $self->init() if $file;

    return $self;
}

sub path {
    my $self = shift;
    if (@_) {
        $self->{path} = shift;
        $self->init;
    }
    $self->{path};
}

sub init {
    my $self = shift;

    my $plist = $self->parse_plist($self->path)
        or croak "Can't open savedSearch file " . $self->path;

    my $query = $plist->{RawQuery};
       $query = _get_value($query) if blessed $query;
    my @search_paths = @{ $plist->{SearchCriteria}{FXScopeArrayOfPaths} || [] };

    $self->{query} = $query;
    $self->{search_paths} = \@search_paths;
}

sub list {
    my $self = shift;

    if (@_) {
        # backward compatiblity
        $self = (ref $self)->new(@_);
    }

    my @files;
    for my $path (@{$self->{search_paths}}) {
        $path = _get_value($path) if blessed $path;
        push @files, $self->_run_mdfind($path, $self->{query});
    }

    return @files;
}

sub parse_plist {
    my($self, $file) = @_;

    if (eval { require Mac::Tie::PList }) {
        return Mac::Tie::PList->new_from_file($file);
    } else {
        require Mac::PropertyList;
        Mac::PropertyList::parse_plist_file($file);
    }
}

sub _run_mdfind {
    my($self, $path, $query) = @_;

    my $mq = Mac::Spotlight::MDQuery->new($query);
    $mq->setScope( $self->_scope($path) );
    $mq->execute;
    $mq->stop;

    my @files;
    for my $result ($mq->getResults) {
        push @files, $result->get(kMDItemPath);
    }

    return @files;
}

# string => constant
my %scope = (
   kMDQueryScopeHome     => kMDQueryScopeHome,
   kMDQueryScopeComputer => kMDQueryScopeComputer,
   kMDQueryScopeNetwork  => kMDQueryScopeNetwork,
);

sub _scope {
    my($self, $str) = @_;
    $scope{$str};
}

my %decode = (amp => '&', quot => '"', lt => '<', gt => '>');

sub _get_value {
    my $string = shift;

    # Mac::PropertyList doesn't decode XML escapes
    $string = $string->value;
    $string =~ s/&(amp|quot|lt|gt);/$decode{$1}/eg;

    return $string;
}


1;
__END__