Geo::GoogleEarth::Pluggable::LookAt - Geo::GoogleEarth::Pluggable LookAt package

  my $lookat=$document->LookAt(
                               latitude  => 38.1741527,
                               longitude => -96.7839388,
                               range     => 3525808,
                               heading   => 0,
                               tilt      => 0,
                              );
  $point->lookat($lookat);
  $folder->lookat($lookat);
  $document->lookat($lookat);

  Michael R. Davis (mrdvt92)
  CPAN ID: MRDVT

  The BSD License

package Geo::GoogleEarth::Pluggable::LookAt;
use strict;
use warnings;
use base qw{Package::New};
use XML::LibXML::LazyBuilder qw{E};

our $VERSION="0.14";

sub latitude {
  my $self=shift;
  $self->{"latitude"}=shift if @_;
  return $self->{"latitude"};
}

sub longitude {
  my $self=shift;
  $self->{"longitude"}=shift if @_;
  return $self->{"longitude"};
}

sub range {
  my $self=shift;
  $self->{"range"}=shift if @_;
  return $self->{"range"};
}

sub tilt {
  my $self=shift;
  $self->{"tilt"}=shift if @_;
  return $self->{"tilt"};
}

sub heading {
  my $self=shift;
  $self->{"heading"}=shift if @_;
  return $self->{"heading"};
}

sub node {
  my $self=shift;
  my @elements=();
  my %skip=map {$_=>1} qw{document};
  foreach my $key (sort keys %$self) {
    next if exists $skip{$key};
    push @elements, E($key => {}, $self->{$key});
  }
  return E(LookAt => {}, @elements);
}

1;