pp::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 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';
# -----------------
sub format
{
my($self, $output) = @_;
$self -> log(debug => 'Entered format');
return JSON::XS -> new -> utf8 -> encode({results => [@$output]});
} # End of format.
# -------------------