#!/usr/bin/perl
use strict;
use warnings;
use GStreamer -init;

# $Id$

# get factory
my $factory = GStreamer::ElementFactory -> find("audiotestsrc");
unless ($factory) {
  print "You don't have the 'audiotestsrc' element installed, go get it!\n";
  exit -1;
}

# display information
printf "The '%s' element is a member of the category %s.\n" .
       "Description: %s\n",
       $factory -> get_name(),
       $factory -> get_klass(),
       $factory -> get_description();