App-Office-Contacts-Import-vCards

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

Revision history for Perl extension App::Office::Contacts::Import::vCards.

1.12  Fri Jun 25 11:15:00 2010
	- Change all JSON::XS->new->encode(...) to JSON::XS->new->utf8->encode(...).

1.11  Wed May 19  11:11:00 2010
	- Update comments re starman usage in donations.psgi.
	- Chop mailing list stuff from support.
	- Update version numbers in Build.PL and Makefile.PL.

1.10  Tue Apr 20  9:16:00 2010
	- Change SQLite attribute from unicode to sqlite_unicode.
	- Change the default database driver from Postgres to SQLite,
		to make installation easier (by not requiring DBD::Pg).

Changelog.ini  view on Meta::CPAN

[Module]
Name=App::Office::Contacts::Import::vCards
Changelog.Creator=Module::Metadata::Changes V 1.08
Changelog.Parser=Config::IniFiles V 2.57

[V 1.12]
Date=2010-06-25T11:15:00
Comments=- Change all JSON::XS->new->encode(...) to JSON::XS->new->utf8->encode(...).

[V 1.11]
Date=2010-05-19T11:11:00
Comments= <<EOT
- Update comments re starman usage in donations.psgi.
- Chop mailing list stuff from support.
- Update version numbers in Build.PL and Makefile.PL.
EOT

[V 1.10]

lib/App/Office/Contacts/Import/vCards/Util/vCards.pm  view on Meta::CPAN

package App::Office::Contacts::Import::vCards::Util::vCards;

# Purpose:
#	Read vCards in XML format.

use JSON::XS;

use XML::SAX::ParserFactory;

use Moose;

extends (qw/Moose::Object XML::SAX::Base/);

has callback    => (is => 'rw', isa => 'CodeRef');
has caller      => (is => 'rw', isa => 'Any');
has email_type  => (is => 'rw', isa => 'Str');

lib/App/Office/Contacts/Import/vCards/View/vCards.pm  view on Meta::CPAN

package App::Office::Contacts::Import::vCards::View::vCards;

use JSON::XS;

use Moose;

extends 'App::Office::Contacts::View::Base';

use namespace::autoclean;

our $VERSION = '1.12';

# -----------------------------------------------

lib/App/Office/Contacts/Import/vCards/View/vCards.pm  view on Meta::CPAN

} # End of build_import_vcards_js.

# -----------------------------------------------

sub format
{
	my($self, $output) = @_;

	$self -> log(debug => 'Entered format');

	return JSON::XS -> new -> utf8 -> encode({results => [@$output]});

} # End of format.

# -----------------------------------------------

__PACKAGE__ -> meta -> make_immutable;

1;