view release on metacpan or  search on metacpan

lib/Acme/DependOnEverything.pm  view on Meta::CPAN

use Text::Similarity;
use Text::SimpleTable;
use Text::SimpleTable::AutoWidth;
use Text::SimpleTemplate;
use Text::SimpleVaddrbook;
use Text::SimpleVcard;
use Text::SimSearch;
use Text::SlackEmoji;
use Text::Slidez::v;
use Text::Slugify;
use Text::SmartLinks;

 view release on metacpan or  search on metacpan

Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt  view on Meta::CPAN

Text::SimSearch
Text::Similarity
Text::SimpleTable
Text::SimpleTemplate
Text::SimpleVaddrbook
Text::SimpleVcard
Text::SimpleVproperty
Text::SlackEmoji
Text::Slidez
Text::Slugify
Text::SmartLinks

 view release on metacpan or  search on metacpan

lib/Text/SimpleVaddrbook.pm  view on Meta::CPAN

package Text::SimpleVaddrbook;

use Text::SimpleVcard;

use warnings;
use strict;

=head1 NAME

lib/Text/SimpleVaddrbook.pm  view on Meta::CPAN

=head2 next()

   my $vCard = $aBook->next();

This method will read the next C<vCard>-entry in the list of C<vCard>-files.
It returns the entry in a C<vCard>-object (see also C<Text::SimpleVcard>). it will
return C<undef> when called after the last entry was returned.

=cut

sub next() {

lib/Text/SimpleVaddrbook.pm  view on Meta::CPAN

      $dat = $lin;	# put start of vcard into buffer
      while( $lin = <$fh>) {
	 $dat .= $lin;
	 $vCardCnt++ if( $lin =~ /^BEGIN:VCARD/);
	 $vCardCnt-- if( $lin =~ /^END:VCARD/);
	 return Text::SimpleVcard->new( $dat) if( $vCardCnt == 0);
      }
   }
}

=head2 rewind()

 view release on metacpan or  search on metacpan

lib/Text/SimpleVcard.pm  view on Meta::CPAN

   print $hdr if( $hdr);
   print $class->sprint() . "\n";
}

# ===========================================================================
# Text::SimpleVcard - a package to manage a single vCard
# ===========================================================================
package Text::SimpleVcard;

use warnings;
use strict;

=head1 NAME

Text::SimpleVcard - a package to manage a single vCard

=head1 VERSION

Version 0.05

lib/Text/SimpleVcard.pm  view on Meta::CPAN

supported. Further enhancements are always welcome.

SimpleVcard has a minimum of dependencies (actually only 'MIME::QuotedPrint'), it
should work with every installation.

   use Text::SimpleVcard;

   open FH, "< std.vcf";        # 'std.vcf' contains a single vcard-entry
   my $vCard = Text::SimpleVcard->new( join( '', <FH>));
   $vCard->print();
   print "FN=" . $vCard->getSimpleValue( 'FN') . "\n";
   print "fullname=" . $vCard->getFullName() . "\n";
   my %h = $vCard->getValuesAsHash( 'TEL', [qw( WORK HOME)]);

lib/Text/SimpleVcard.pm  view on Meta::CPAN

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Text::SimpleVcard


You can also look for information at:

=over 4

lib/Text/SimpleVcard.pm  view on Meta::CPAN

under the same terms as Perl itself.


=cut

1; # End of Text::SimpleVcard