swe-glib/examples/basic.pl

package SweGlib;

use Glib::Object::Introspection;

Glib::Object::Introspection->setup(basename => 'SweGlib', version => '2.0', package => 'SweGlib');

package main;

SweGlib::init();

$timestamp = SweGlib::Timestamp->new();
$timestamp->set_gregorian_full(1983, 3, 7, 11, 54, 45, 0, 1);

$moment = SweGlib::Moment->new();
$moment->set_timestamp($timestamp);
$moment->set_coordinates(19.0390999, 47.49801000, 280);
$moment->set_house_system("placidus");
$moment->add_all_planets();

$planet = $moment->get_planet("sun");
print($planet->get_position(), "\n");