]>
iEval git - zeal.git/blob - lib/Zeal/Docset.pm
7 our $VERSION = '0.000_001';
9 use parent qw
/Class::Accessor::Fast/;
10 __PACKAGE__
->mk_ro_accessors(qw
/path plist dbh name id family/);
14 use File
::Spec
::Functions qw
/catfile catdir rel2abs/;
18 use File
::Slurp qw
/read_file/;
19 use Mac
::PropertyList
::SAX qw
/parse_plist_file/;
24 my ($class, $path) = @_;
25 $path = realpath
$path;
26 my $plpath = catfile
$path, 'Contents', 'Info.plist';
27 my $dbpath = catfile
$path, 'Contents', 'Resources', 'docSet.dsidx';
28 my $plist = parse_plist_file
($plpath)->as_perl;
29 carp
'This is not a Dash docset' unless $plist->{isDashDocset
};
34 dbh
=> DBI
->connect("dbi:SQLite:dbname=$dbpath", '', ''),
35 name
=> $plist->{CFBundleName
},
36 id
=> $plist->{CFBundleIdentifier
},
37 family
=> $plist->{DocSetPlatformFamily
},
42 my ($self, $docsref) = @_;
43 map { Zeal
::Document
->new(+{%$_, docset
=> $self}) } @
$docsref;
47 my ($self, $path) = @_;
48 return HTTP
::Tiny
->new->get($path)->{content
} if $path =~ /^http:/s;
49 my $docroot = catdir
$self->path, 'Contents', 'Resources', 'Documents';
50 $path = rel2abs
$path, $docroot;
51 scalar read_file
$path
55 my ($self, $cond) = @_;
56 my $query = 'SELECT * FROM searchIndex WHERE name LIKE ?';
57 my $res = $self->dbh->selectall_arrayref($query, {Slice
=> {}}, $cond);
58 my @results = $self->_blessdocs($res);
59 wantarray ?
@results : $results[0]
63 my ($self, $cond) = @_;
64 $self->query($cond)->fetch
69 my $query = 'SELECT * FROM searchIndex';
70 my $res = $self->dbh->selectall_arrayref($query, {Slice
=> {}});
71 $self->_blessdocs($res)
81 Zeal::Docset - Class representing a Dash/Zeal docset
89 Dash is an offline API documentation browser. Zeal::Docset is a class
90 representing a Dash/Zeal docset.
96 =item Zeal::Docset->B<new>(I<$path>)
98 Create a Zeal::Docset object from a given docset. I<$path> should be
99 the path to a F<something.docset> directory.
103 The path to the docset folder.
107 A hashref with the contents of Info.plist.
111 A DBI database handle to the docSet.dsidx index.
115 The name of this docset. Equivalent to
116 C<< $ds->plist->{CFBundleName} >>
120 The identifier of this docset. Equivalent to
121 C<< $ds->plist->{CFBundleIdentifier} >>
125 The family this docset belongs to. Dash uses this as the keyword for
126 restricting searches to a particular family of docsets. Equivalent to
127 C<< $ds->plist->{DocSetPlatformFamily} >>
129 =item $ds->B<fetch>(I<$path>)
131 Internal method for fetching the HTML content of a document. I<$path>
132 is either the path to the document relative to C<< $ds->B<path> >> or
135 =item $ds->B<query>(I<$cond>)
137 In list context, return all documents (L<Zeal::Document> instances)
138 matching I<$cond>. In scalar context, return one such document.
139 I<$cond> is a SQL LIKE condition.
141 =item $ds->B<get>(I<$cond>)
143 The HTML content of one document that matches I<$cond>.
144 I<$cond> is a SQL LIKE condition.
146 This method is shorthand for C<< $ds->query(I<$cond>)->fetch >>.
150 The list of all documents (L<Zeal::Document> instances) in this
157 L<Zeal>, L<http://kapeli.com/dash>, L<http://zealdocs.org>
161 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
163 =head1 COPYRIGHT AND LICENSE
165 Copyright (C) 2014 by Marius Gavrilescu
167 This library is free software; you can redistribute it and/or modify
168 it under the same terms as Perl itself, either Perl version 5.20.1 or,
169 at your option, any later version of Perl 5 you may have available.
This page took 0.059222 seconds and 4 git commands to generate.