#!/usr/bin/env perl

#---------------------------------------------------------------------
# Overview.

# This is a simple Salesforce test program.

#---------------------------------------------------------------------
# Module setup.

                                # Load CPAN modules
use strict; use Carp; use warnings;
use WWW::Salesforce::Simple;
                                # Trap warnings
$SIG{__WARN__} = sub { die @_; };

#---------------------------------------------------------------------
# Log-in to SFDC.

my $sforce;                     # WWW::Salesforce::Simple object
eval                            # Attempt log-in
{
    $sforce = WWW::Salesforce::Simple->new
    (
        username => 'baconname@yahoo.com' ,
        password => 'baconpass'
    )
};
                                # Handle errors
die "Could not login to SFDC: $@\n" if $@ || !defined $sforce;

#---------------------------------------------------------------------
# Output a sorted list of Account fields.

my @list = ();                  # Will hold a sorted field list
                                # Get a fields-list object
my     $ref_fields;
eval { $ref_fields = $sforce->get_field_list ('Account'); };
                                # Handle errors
die "Error: get_field_list failed\n" if $@ || !defined $ref_fields;

                                # Build list of field names
for (@{$ref_fields}) { push (@list, $_->{'name'}); }

                                # Print sorted list
print join ("\n", sort @list) . "\n";